inst/shiny/bdclean/tests/module-02-configure-cleaning-test.R

In vijaybarve/bdclean: A User-Friendly Biodiversity Data Cleaning App for the Inexperienced R User

app <- ShinyDriver$new("../", seed = 1)
app$snapshotInit("module-02-configure-cleaning-test")

app$uploadFile(`bdFileInput-inputFile` = "puma_concolor.csv")
app$setInputs(dataToConfigure = "click")
Sys.sleep(5)
app$snapshot()
app$setInputs(taxonMain = TRUE)
app$setInputs(taxonLevel = "Class")
app$setInputs(spatialMain = TRUE)
app$setInputs(spatialResolution = 1000)
app$setInputs(precisionCoord = TRUE)
app$setInputs(countryCoord = TRUE)
app$setInputs(temporalMain = TRUE)
app$setInputs(temporalEarliest = c("2000-01-01", "2019-12-25"))
app$setInputs(smallerDates = TRUE)
app$setInputs(smallerIssues = TRUE)
app$snapshot()
app$setInputs(spatialResolution_ctrl = FALSE)
app$snapshot()
app$setInputs(questionnaireTab = "option2")
Sys.sleep(5)
app$snapshot()
app$setInputs(dc_notification_datageneralizations_notempty = TRUE)
app$setInputs(typeInput = "dc_notification_datageneralizations_notempty")
app$setInputs(dc_notification_establishmentmeans_notempty = TRUE)
app$setInputs(typeInput = c("dc_notification_datageneralizations_notempty", "dc_notification_establishmentmeans_notempty"))
app$setInputs(dc_validation_basisofrecord_empty = TRUE)
app$setInputs(typeInput = c("dc_notification_datageneralizations_notempty", "dc_notification_establishmentmeans_notempty", "dc_validation_basisofrecord_empty"))
app$setInputs(dc_validation_dateidentified_notstandard = TRUE)
app$setInputs(typeInput = c("dc_notification_datageneralizations_notempty", "dc_notification_establishmentmeans_notempty", "dc_validation_basisofrecord_empty", "dc_validation_dateidentified_notstandard"))
app$setInputs(dc_validation_family_notfound = TRUE)
app$setInputs(typeInput = c("dc_notification_datageneralizations_notempty", "dc_notification_establishmentmeans_notempty", "dc_validation_basisofrecord_empty", "dc_validation_dateidentified_notstandard", "dc_validation_family_notfound"))
app$setInputs(dc_validation_occurrencestatus_empty = TRUE)
app$setInputs(typeInput = c("dc_notification_datageneralizations_notempty", "dc_notification_establishmentmeans_notempty", "dc_validation_basisofrecord_empty", "dc_validation_dateidentified_notstandard", "dc_validation_family_notfound", "dc_validation_occurrencestatus_empty"))
app$setInputs(dc_validation_year_outofrange = TRUE)
app$setInputs(typeInput = c("dc_notification_datageneralizations_notempty", "dc_notification_establishmentmeans_notempty", "dc_validation_basisofrecord_empty", "dc_validation_dateidentified_notstandard", "dc_validation_family_notfound", "dc_validation_occurrencestatus_empty", "dc_validation_year_outofrange"))
app$snapshot()