dateInput3: Create a side-by-side dateInput
In cardiomoon/editData: 'RStudio' Addin for Editing a 'data.frame'

Create a side-by-side dateInput

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

`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

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