tests/shinytest/predict_goulburn_1patch_moredetails.R

In sustainablefarms/farm_biodiversity_app: An App Predicting Bird Biodiversity on Farms

app <- ShinyDriver$new("../../", shinyOptions = list(test.mode = TRUE))
app$snapshotInit("predict_goulburn_1patch_moredetails")

# dismiss splash screen
app$setInputs(overallhelpfake = "click")
app$setInputs(moredetailfake = "click")
app$setInputs(downloadreportfake = "click")
app$setInputs(introfake = "click")
app$findElement('button[data-dismiss]')$click() #closes the modal

# set goulburn
app$setInputs(`plotly_click-region_map` = '[{\"curveNumber\":0,\"pointNumber\":0,\"x\":149.603897167433,\"y\":-34.5156485191709}]', allowInputNoBinding_ = TRUE, priority_ = "input")

# specify the patch
app$setInputs(`patch-patch_number_1` = "click")
app$setInputs(`patch-patchattr-pc_woody3000m` = 15.5)
app$setInputs(`patch-patchattr-pc_woody500m` = 14)
app$setInputs(`patch-choose_patch_attributes_execute` = "click")

# look at more details modal
app$setInputs(`pred-moredetail` = "click")
Sys.sleep(1)
app$snapshot()

# hide more details modal
app$setInputs(`pred-hide` = "click")

# download report and csv
app$snapshotDownload("pred-downloaddata")
app$snapshotDownload("pred-downloadreport") # can't compare easily
app$snapshot()