shiny.semantic (version 0.3.0)

date_input: Define simple date input with semantic ui styling

Description

Define simple date input with semantic ui styling

Usage

date_input(
  name,
  label = NULL,
  value = NULL,
  min = NULL,
  max = NULL,
  style = NULL,
  icon = uiicon("calendar")
)

Arguments

name

Input id.

label

Label to be displayed with date input.

value

Default date chosen for input.

min

Minimum date that can be selected.

max

Maximum date that can be selected.

style

Css style for widget.

icon

Icon that should be displayed on widget.

Examples

# NOT RUN {
if (interactive()) {
# Below example shows how to imlement simple date range input using \code{date_input}

library(shiny)
library(shiny.semantic)

ui <- shinyUI(
  semanticPage(
    title = "Date range example",
    uiOutput("date_range"),
    p("Selected dates:"),
    textOutput("selected_dates")
  )
)

server <- shinyServer(function(input, output, session) {
  output$date_range <- renderUI({
    tagList(
      tags$div(tags$div(HTML("From")),
               date_input("date_from", value = Sys.Date() - 30, style = "width: 10%;")),
      tags$div(tags$div(HTML("To")),
               date_input("date_to", value = Sys.Date(), style = "width: 10%;"))
    )
  })

  output$selected_dates <- renderPrint({
    c(input$date_from, input$date_to)
  })
})

shinyApp(ui = ui, server = server)
}

# }