fitWindow | R Documentation |
Adjust the visible window such that it fits all items
fitWindow(id, options)
id |
Timeline id or a |
options |
Named list of options controlling the animation. Most common
option is |
if (interactive()) { library(shiny) shinyApp( ui = fluidPage( timevisOutput("timeline"), actionButton("btn", "Fit all items") ), server = function(input, output) { output$timeline <- renderTimevis( timevis(data.frame( id = 1:2, start = c(Sys.Date(), Sys.Date() - 1), content = c("1", "2") )) ) observeEvent(input$btn, { fitWindow("timeline", list(animation = FALSE)) }) } ) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.