inst/apps/115-remove-modal/app.R

In rstudio/shinycoreci: CI Testing for shiny

library(shiny)

# Main app UI
ui <- fluidPage(
  theme = bslib::bs_theme(bootswatch = "darkly"),
  # Make sure body height does not change when taking screenshots
  tags$style("body { min-height: 100vh; }"),
  actionButton("openModalBtn", "Open Modal")
)

# Main app server
server <- function(input, output, session) {
  # open modal on button click
  observeEvent(input$openModalBtn,
               showModal(modalDialog(title="Hello",footer=actionButton("closeModalBtn", "Close Modal")))
  )

  # close modal on button click
  observeEvent(input$closeModalBtn, {
    removeModal()
  })
}

shinyApp(ui, server)