library(toastui)
calendar(view = "week", defaultDate = "2021-06-18") %>%
cal_schedules(
title = "My schedule",
start = "2021-06-18T10:00:00",
end = "2021-06-18T17:00:00",
category = "time"
) %>%
# Set primary timezone and add secondary timezone
cal_timezone(
timezoneName = "Europe/Paris",
displayLabel = "GMT+02:00",
tooltip = "Paris",
extra_zones = list(
list(
timezoneName = "Asia/Seoul",
displayLabel = "GMT+09:00",
tooltip = "Seoul"
)
)
)
Run the code above in your browser using DataLab