generated from rpodcast/r_dev_projects
/
index.qmd
84 lines (67 loc) · 1.06 KB
/
index.qmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
---
title: "RWeekly Curation Calendar"
format:
dashboard:
logo: "assets/icon-256x256.png"
execute:
echo: false
---
```{r}
#| label: setup
#| include: false
library(dplyr)
library(targets)
library(toastui)
library(epoxy)
library(reactable)
library(htmltools)
tar_source("R/curator_table.R")
```
```{css}
.imageclass {
height: 1.3rem;
}
```
```{r}
#| label: load-cal-target
#| include: false
tar_load(c(processed_cal_data, rweekly_issue_count))
tar_source()
```
# Schedule
## Row
```{r}
#| content: valuebox
#| title: "Curators"
#| icon: person-workspace
#| color: primary
list(
value = length(unique(processed_cal_data$name))
)
```
```{r}
#| content: valuebox
#| title: "Issues Curated"
#| icon: newspaper
#| color: primary
list(
value = rweekly_issue_count
)
```
## 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(processed_cal_data)
```