
Last chance! 50% off unlimited learning
Sale ends in
if (FALSE) {
# Consider having created a calendar widget with
calendarOutput("my_calendar") # UI
output$my_calendar <- renderCalendar({}) # Server
# Then you can call proxy methods in observer:
# set calendar proxy then call a cal_proxy_* function
calendar_proxy("my_calendar") %>%
cal_proxy_today()
# or directly
cal_proxy_today("my_calendar")
}
Run the code above in your browser using DataLab