r - 如何为 R Shiny 应用程序制作 "Calendar"？

Question

有很多 JS 库可用于在 Web 应用程序中制作日历。

如何为 R Shiny 应用程序制作一个带有日期标签的优雅日历解决方案，就像在 Google 日历中一样？

谢谢!

Answer 1

看看 fullcalendar在github上打包，或者你可以Add a Google calendar to your website

library(shiny)
library(fullcalendar)

data = data.frame(title = paste("Event", 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)