hide_error_box: hide_error_box

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

Description

Hide an error box

Usage

hide_error_box(inputId)

Arguments

inputId

ID of the error box to hide

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"
        ),
        tags$button(
          id = "hide",
          class = "shiny-bound-input action-button",
          "Hide Error"
        )
      )
    )
  )

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

    observeEvent(input$hide, {
      iceComponents::hide_error_box(
        inputId = "shiny-server-error"
      )
    })
  }

  shinyApp(ui, server)

}

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