Alert | R Documentation |
Documentation: https://blueprintjs.com/docs/#core/components/alert
Alert(...)
... |
Component props and children. See the official Blueprint docs for details. |
Object with shiny.tag
class suitable for use in the UI of a Shiny app.
library(shiny.blueprint)
library(shiny)
ui <- function(id) {
ns <- NS(id)
tagList(
Button.shinyInput(
inputId = ns("showAlert"),
"Show alert"
),
reactOutput(ns("alert"))
)
}
server <- function(id) {
moduleServer(id, function(input, output, session) {
ns <- session$ns
isOpen <- reactiveVal(FALSE)
observeEvent(input$showAlert, isOpen(TRUE))
observeEvent(input$closeAlert, isOpen(FALSE))
output$alert <- renderReact({
Alert(
usePortal = FALSE,
confirmButtonText = "Got it",
isOpen = isOpen(),
onClose = triggerEvent(ns("closeAlert")),
p("Hello, it's me, your alert")
)
})
})
}
if (interactive()) shinyApp(ui("app"), function(input, output) server("app"))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.