inst/tests/shinytest/local_tests.R

In mmollina/viewpoly: A Shiny App to Visualize Genetic Maps and QTL Analysis in Polyploid Species

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

app$snapshot()
app$setInputs(viewpoly = "upload")
app$snapshot()
app$setInputs(viewpoly = "qtl")
app$setInputs(`qtl_view_ui_1-phenotypes` = c("PY06", "SG06", "DM06", "ST06", "NS06", "NI06", "PY07", "FM07", "SG07", "DM07", "ST07", "NS07", "NI07", "PY08", "FM08", "SG08", "DM08", "ST08", "NS08", "NI08", "PY14", "FM14", "SG14", "DM14", "ST14", "NS14", "NI14"))
app$setInputs(`qtl_view_ui_1-group` = c("1", "5"))
app$snapshot()
app$setInputs(`qtl_view_ui_1-effects_design` = "circle")
app$snapshot()
app$setInputs(`qtl_view_ui_1-effects_design` = "digenic")
app$snapshot()
app$setInputs(`qtl_view_ui_1-effects_design` = "bar")
app$setInputs(`qtl_view_ui_1-haplo_update` = "click")
app$setInputs(`qtl_view_ui_1-haplo` = c("Trait:PY06_LG:5_Pos:29_homolog:P1.1", "Trait:PY06_LG:5_Pos:29_homolog:P1.3"), wait_=FALSE, values_=FALSE)
app$setInputs(`qtl_view_ui_1-haplo` = "Trait:PY06_LG:5_Pos:29_homolog:P1.1", wait_=FALSE, values_=FALSE)
app$setInputs(`qtl_view_ui_1-haplo_submit` = "click")
app$snapshot()
app$snapshot()
app$setInputs(viewpoly = "genes")
app$setInputs(`genes_view_ui_1-group` = "5")
app$setInputs(`genes_view_ui_1-range` = c(19, 39))
app$snapshot()
app$setInputs(viewpoly = "map")
app$setInputs(`map_view_ui_1-group` = "5")
app$setInputs(`map_view_ui_1-range` = c(20, 40))
app$snapshot()