tests/testthat/apps/NOAA_app/tests/shinytest/mytest.R

In UtrechtUniversity/oceanexplorer: Explore Our Planet's Oceans with NOAA

app <- ShinyDriver$new("../../")
app$snapshotInit("mytest")

app$snapshot()
app$setInputs(`NOAA-go` = "click")
# Input 'waiter_shown' was set, but doesn't have an input binding.
# Input 'waiter_hidden' was set, but doesn't have an input binding.
app$snapshot()
# Input '`worldmap-plot_click`' was set, but doesn't have an input binding.
# Input '`worldmap-plot_click`' was set, but doesn't have an input binding.
# Input '`worldmap-plot_click`' was set, but doesn't have an input binding.
# Input '`worldmap-plot_click`' was set, but doesn't have an input binding.
app$snapshot()