| calendar | R Documentation | 
This creates a default calendar input using Semantic UI. The input is available
under input[[input_id]].
This function updates the date on a calendar
calendar(
  input_id,
  value = NULL,
  placeholder = NULL,
  type = "date",
  min = NA,
  max = NA
)
update_calendar(session, input_id, value = NULL, min = NULL, max = NULL)
| input_id | ID of the calendar that will be updated | 
| value | Initial value of the numeric input. | 
| placeholder | Text visible in the input when nothing is inputted. | 
| type | Select from  | 
| min | Minimum allowed value. | 
| max | Maximum allowed value. | 
| session | The  | 
# Basic calendar
if (interactive()) {
  library(shiny)
  library(shiny.semantic)
  ui <- shinyUI(
    semanticPage(
      title = "Calendar example",
      calendar("date"),
      p("Selected date:"),
      textOutput("selected_date")
    )
  )
   server <- shinyServer(function(input, output, session) {
     output$selected_date <- renderText(
       as.character(input$date)
     )
   })
   shinyApp(ui = ui, server = server)
 }
## Not run: 
# Calendar with max and min
calendar(
  name = "date_finish",
  placeholder = "Select End Date",
  min = "2019-01-01",
  max = "2020-01-01"
)
# Selecting month
calendar(
  name = "month",
  type = "month"
)
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.