feedbackWarning

wrapper for feedback() function that displays a warning message by default

feedbackWarning(inputId, condition, text = "Ye be warned",
  color = "#F89406", icon = shiny::icon("warning-sign", lib =
  "glyphicon"))

Arguments

inputId	the Shiny input's inputId argument
condition	condition under which feedback is displayed
text	default "Ye be warned" text string to display below input
color	default "#F89406" the color of the feedback
icon	default icon("warning-sign", lib="glyphicon")) a shiny::icon object

See also

feedback, feedbackDanger, feedbackSuccess

Other feedback wrappers: feedbackDanger, feedbackSuccess

Examples

## Only run examples in interacive R sessions
if (interactive()) {
  ui <- fluidPage(
    useShinyFeedback(),

    numericInput(
      "exampleInput",
      "Show Feedback When < 0",
      value = -5
    )
  )

  server <- function(input, output) {
    observeEvent(input$exampleInput, {
      feedbackWarning(
        "exampleInput",
        condition = input$exampleInput < 0
      )
    })
  }

  shinyApp(ui, server)
}