Посмотрите на пакет fullcalendar на github, в качестве альтернативы вы можете Добавить календарь Google на свой сайт
library(shiny)
library(fullcalendar)
data = data.frame(title = paste("Event"[![enter image description here][2]][2], 1:3),
start = c("2017-03-01", "2017-03-01", "2017-03-15"),
end = c("2017-03-02", "2017-03-04", "2017-03-18"),
color = c("red", "blue", "green"))
ui <- fluidPage(
column(6,
fullcalendarOutput("calendar", width = "100%", height = "200px")
)
)
server <- function(input, output) {
output$calendar <- renderFullcalendar({
fullcalendar(data)
})
}
shinyApp(ui, server)