inst/shiny/tests/shinytest/test_OpenAQ.R

In adithirgis/pollucheck: Explore Open-Source Air Pollution Data

app <- ShinyDriver$new("../../", loadTimeout = 1e+05)
app$snapshotInit("test_OpenAQ")

app$setInputs(help_link = "click")
app$setInputs(switch_tab = "click")
app$setInputs(type = "oaq")
app$uploadFile(file1 = "OpenAQ.csv")
app$setInputs(remove_9 = TRUE)
app$setInputs(hourly = "click")
app$setInputs(avg_hour = "daily")
app$setInputs(hourly = "click")
app$setInputs(tabs1 = "2")
app$setInputs(tabs1 = "5")
app$setInputs(freq = "click")
app$setInputs(qq = "click")
app$snapshot()
app$setInputs(tabs1 = "7")
app$setInputs(type2 = "oaq")
app$uploadFile(file2 = "OpenAQ.csv")
app$setInputs(Para = "CO")
app$setInputs(plot_values = "click")
app$setInputs(plot_val = "click")
app$setInputs(plot_val_di = "click")
app$snapshot()
app$setInputs(tabs1 = "4")
app$setInputs(cp = "click")
app$setInputs(stat_tv = "median")
app$setInputs(tv = "click")
app$snapshot()