inst/app_template/tests/testthat/test-examplemodule.R

In rstudio/shiny: Web Application Framework for R

# See ?testServer for more information
testServer(exampleModuleServer, {
  # Set initial value of a button
  session$setInputs(button = 0)

  # Check the value of the reactiveVal `count()`
  expect_equal(count(), 1)
  # Check the value of the renderText()
  expect_equal(output$out, "1")

  # Simulate a click
  session$setInputs(button = 1)

  expect_equal(count(), 2)
  expect_equal(output$out, "2")
})