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)
rstudio/shinytest documentation built on March 5, 2024, 5:12 a.m.