index.qmd

---
title: "RWeekly Curation Calendar"
format: 
  dashboard: 
    logo: "assets/icon-256x256.png"

execute: 
  echo: false
---


```{r}
#| label: setup
#| include: false
library(dplyr)
library(toastui)
library(reactable)
library(htmltools)

# load supporting functions
source("R/create_curator_df.R")
source("R/import_schedule_functions.R")
source("R/process_cal_data.R")
source("R/curator_table.R")
```

```{css}
.imageclass {
  height: 1.3rem;
}
```

# Schedule

```{r}
cal_df <- import_schedule_data()
processed_cal_data <- process_cal_data(cal_df)
```

## Row

### Column {width="50%"}

```{r}
toastui::calendar(
  data = processed_cal_data,
  view = "month",
  navigation = TRUE
) |>
  toastui::cal_month_options(
    startDayOfWeek = 1,
    narrowWeekend = FALSE
  )
```

### Column {width="50%"}


```{r}
curator_table(cal_df)
```