tests/testthat/apps/stopApp/app.R

library(shiny)
ui <- fluidPage(
  actionButton("quit", "quit")
)
server <- function(input, output, session) {
  observeEvent(input$quit, stopApp())
}
shinyApp(ui, server)
MangoTheCat/shinytest documentation built on March 7, 2024, 1:41 p.m.