Как сделать «Календарь» для приложения R Shiny?

Question

Существует множество библиотек JS для создания Календаря в веб-приложениях.

Как создать элегантное решение для Календаря с датами маркировки, как в Календаре Google для приложений R Shiny?

Спасибо!

Answer 1

Посмотрите на пакет 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)