inst/anem-app/tests/shinytest/test_gwdistricts_well_capture.R

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

app$setInputs(maintabs = "prepare")
app$setInputs(usermode = "files")
app$setInputs(exampleUpload = "Groundwater district")
app$setInputs(usermode = "particles")
app$setInputs(wellCapture = TRUE)
app$setInputs(captureParticles = 4)
app$setInputs(max_tracking_time_years = 2)
app$setInputs(maintabs = "results")
app$snapshot()
gopalpenny/anem documentation built on Dec. 20, 2020, 5:27 a.m.