calendar(view = "month") %>%
cal_theme(
common.border = "2px solid #E5E9F0",
month.dayname.borderLeft = "2px solid #E5E9F0",
common.backgroundColor = "#2E3440",
common.holiday.color = "#88C0D0",
common.saturday.color = "#88C0D0",
common.dayname.color = "#ECEFF4",
common.today.color = "#333"
)
Run the code above in your browser using DataLab