View source: R/calendar-proxy.R
cal_proxy_options | R Documentation |
This function allow to set options for a calendar.
cal_proxy_options(proxy, ...)
proxy |
A |
... |
Options for the calendar, you can use arguments from |
A calendar_proxy
object.
Other calendar proxy methods:
cal_proxy_clear()
,
cal_proxy_clear_selection()
,
cal_proxy_toggle()
,
cal_proxy_view()
,
calendar-proxy-navigate
,
calendar-proxy-schedule
,
calendar_proxy()
library(shiny)
library(toastui)
ui <- fluidPage(
fluidRow(
column(
width = 4,
checkboxInput(
inputId = "narrowWeekend",
label = "narrowWeekend ?",
value = FALSE
),
checkboxInput(
inputId = "workweek",
label = "workweek ?",
value = FALSE
)
),
column(
width = 8,
calendarOutput("mycal")
)
)
)
server <- function(input, output, session) {
output$mycal <- renderCalendar({
calendar(cal_demo_data(), view = "month")
})
observeEvent(input$narrowWeekend, {
cal_proxy_options("mycal", month = list(narrowWeekend = input$narrowWeekend))
})
observeEvent(input$workweek, {
cal_proxy_options("mycal", month = list(workweek = input$workweek))
})
}
if (interactive())
shinyApp(ui, server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.