show_error_box: show_error_box

In InControlofEffects/iceComponents: A set of custom components used in the In Control of Effects application

Description

Reveal a message box and display a message

Usage

show_error_box(inputId, error)

Arguments

inputId	ID of error to update
error	message to display

Examples

if (interactive()) {
  library(shiny)

  ui <- tagList(
    iceComponents::use_iceComponents(),
    iceComponents::container(
      iceComponents::page(
        tags$h2("My App"),
        iceComponents::error_box(
          inputId = "shiny-server-error"
        ),
        tags$button(
          id = "show",
          class = "shiny-bound-input action-button",
          "Do Something"
        )
      )
    )
  )

  server <- function() {
    observeEvent(input$show, {
      iceComponents::show_error_box(
        inputId = "shiny-server-error",
        error = "Internal Server Error (500)"
      )
    })
  }

  shinyApp(ui, server)

}

InControlofEffects/iceComponents documentation built on April 1, 2021, 5:51 a.m.