vignettes/simple-app/tests/testthat/test-shinytest2.R

In shinytest2: Testing for Shiny Applications

library(shinytest2)

test_that("{shinytest2} recording: simple-app", {
  app <- AppDriver$new(name = "simple-app", height = 407, width = 348)
  app$set_inputs(name = "Hadley")
  app$click("greet")
  app$expect_values()
})