Add date picker.

bulmaDateInput(
  inputId,
  value,
  min = Sys.Date() - 3,
  max = Sys.Date(),
  overlay = FALSE,
  lang = "en",
  class = NULL,
  ...
)

Arguments

inputId

Id to access value.

value

Current date.

min, max

Minimum and maximum selectable dates.

overlay

Set to TRUE to heave the calendar appear as overlay.

lang

Language.

class

Additional CSS class.

...

any other option

Note

Does not work in RStudio, open app in browser.

Author

John Coene, jcoenep@gmail.com

Examples

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)
}