codeRs_website/calendar.Rmd at main · unswcodeRs/codeRs_website · GitHub

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
---
title: "calendar"
output: html_document
editor_options:
  chunk_output_type: console
---

```{r}
library(calendR)
library(ggeasy)
# Vector of NA of the same length of the number of days of the year
events <- rep(NA, 30)

# Set the corresponding events
events[7] <- " Workshop"
events[21] <- "Drop-in Session"


# Creating the calendar with a legend
june_cal <- calendR(year = 2021,
        month = 6,
        special.days = events,
        special.col = c("lightblue", "lightsalmon"),
        weeknames = c("M", "T", "W", "Th", "F", "S", "S"),
        legend.pos = "right",
        day.size = 5,
        title.size = 30,
        subtitle.size = 20,
        font.style = "bold",
        months.size = 8,
        subtitle = "Workshop: Purrr \nPresenter: Dr. Anikó Tóth"
        )

events <- rep(NA, 31)

events[5] <- " Workshop"
events[19] <- "Drop-in Session"

july_cal <- calendR(year = 2021,
        month = 7,
        special.days = events,
        special.col = c("lightblue", "lightsalmon"),
        weeknames = c("M", "T", "W", "Th", "F", "S", "S"),
        day.size = 5,
        legend.pos = "bottom",
        title.size = 30,
        subtitle.size = 20,
        font.style = "bold",
        months.size = 8,
        subtitle = "Workshop:  \nPresenter: "
        )

```