dateInput3 {editData}

Create a side-by-side dateInput

Description

Create a side-by-side dateInput

Usage

dateInput3(inputId, label, width = 100, ...)

Arguments

inputId

The input slot that will be used to access the value.

label

Display label for the control, or NULL for no label.

width

The width of the input in pixel

...

arguments to be passed to dateInput

Examples

library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
  ui <- fluidPage(
         label3("Welcome"),
         dateInput3("date", "date"),
         verbatimTextOutput("value")
  )
  server <- function(input, output) {
        output$value <- renderText({ input$date })
  }
  shinyApp(ui, server)
}