date_Input | R Documentation |
This function create a date input that follows GDS component
date_Input( inputId, label, hint_label = NULL, error = FALSE, error_message = NULL, day = NULL, month = NULL, year = NULL )
inputId |
The input slot that will be used to access the value. |
label |
Display label for the control, or |
hint_label |
Display hint label for the control, or |
error |
Whenever to include error components.Defaults to |
error_message |
Error handling message? Defaults to |
day |
Select a default day on start up. Defaults to |
month |
Select a default month on start up. Defaults to |
year |
Select a default year on start up. Defaults to |
a data input html shiny object
if (interactive()) { ui <- fluidPage( # Required for error handling function. shinyjs::useShinyjs(), shinyGovstyle::header( main_text = "Example", secondary_text = "User Examples", logo="shinyGovstyle/images/moj_logo.png"), shinyGovstyle::banner( inputId = "banner", type = "beta", 'This is a new service'), shinyGovstyle::gov_layout(size = "two-thirds", # Simple date input shinyGovstyle::date_Input( inputId = "dob_input", label = "Please enter your birthday"), # Error date input shinyGovstyle::date_Input( inputId = "dob_input2", label = "Please enter your birthday", hint_label = "For example, 12 11 2007", error = TRUE), # Button to trigger error shinyGovstyle::button_Input(inputId = "submit", label = "Submit") ), shinyGovstyle::footer(full = TRUE) ) server <- function(input, output, session) { #'Trigger error on blank submit of dob_input2 observeEvent(input$submit, { if (input$dob_input2 == "//"){ shinyGovstyle::error_on(inputId = "dob_input2") } else { shinyGovstyle::error_off( inputId = "dob_input2") } }) } shinyApp(ui = ui, server = server) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.