I would like to know how to change the calendar to show
- Sunday as working day, and change its color from red to black
- Friday and Saturday are weekends
calendar(cal_demo_data(), navigation = TRUE, defaultDate = Sys.Date()) %>%
cal_month_options(
startDayOfWeek = 0,
narrowWeekend = TRUE,
) %>%
cal_props(cal_demo_props())