Use this function in combination with the interval generating functions in this package (e.g. 'this_week', 'this_week_and_next', etc.).
1 | available(interv, func)
|
1 2 3 4 5 6 | agenda1 <-
this_week_and_next(1) %>%
available(
monday("9:00 to 12:00", "16:00 to 17:00") +
friday()
)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.