shiny，timevis和html模板

library(shiny)
library(timevis)

ui <- fluidPage(
  titlePanel("Timevis Example"),
  sidebarLayout(
    sidebarPanel(
      tags$h3("Controls"),
      actionButton("add_event", "Add Event")
    ),
    mainPanel(
      timevisOutput("timeline")
    )
  ),
  tags$head(
    tags$link(rel = "stylesheet", type = "text/css", href = "custom.css")
  )
)

server <- function(input, server) {
  output$timeline <- renderTimevis({
    timevis() %>%
      add_markdown("# My Timeline") %>%
      add_group("Group 1") %>%
      add_item(id = 1, group = "Group 1", content = "Event 1", start = Sys.time())
  })

  observeEvent(input$add_event, {
    output$timeline <- renderTimevis({
      timevis() %>%
        add_markdown("# My Timeline") %>%
        add_group("Group 1") %>%
        add_item(id = 2, group = "Group 1", content = "Event 2", start = Sys.time())
    })
  })
}

shinyApp(ui, server)