inst/examples/supported_shinyWidgets_app/ui.R

In shinyFeedback: Display User Feedback in Shiny Apps

fluidPage(
  useShinyFeedback(),
  fluidRow(
    column(
      4,
      h2("shinyWidgets::airDatepickerInput"),
      
      shinyWidgets::airDatepickerInput(
        inputId = "myAirDatePickerInput",
        label = "Danger if not today"
      )
    ),
    column(
      4,
      h2("shinyWidgets::pickerInput"),
      shinyWidgets::pickerInput(
        inputId = "myPickerInput",
        label = "Danger if A",
        choices = c("A", "B"),
        selected = "A"
      )
    )
  )
)