Add date picker.
bulmaDateInput( inputId, value, min = Sys.Date() - 3, max = Sys.Date(), overlay = FALSE, lang = "en", class = NULL, ... )
inputId | Id to access value. |
---|---|
value | Current date. |
min, max | Minimum and maximum selectable dates. |
overlay | Set to |
lang | Language. |
class | Additional CSS class. |
... | any other option |
Does not work in RStudio, open app in browser.
John Coene, jcoenep@gmail.com
if(interactive()){ ui <- bulmaPage( bulmaContainer( br(), bulmaDateInput("date", Sys.Date(), overlay = TRUE), verbatimTextOutput("selected") ) ) server <- function(input, output){ output$selected <- renderText({ input$date }) } shiny::shinyApp(ui, server) }