inst/shiny-dir/tests/mytest.R

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

app$uploadFile(gene1 = "mygene.txt")
app$uploadFile(bam_list = "bam.list")
app$snapshot()
app$setInputs(pileup = "click")
app$snapshot()
app$setInputs(Gene_name = "POLG")
app$setInputs(button1 = "click")
app$snapshot()
app$snapshot()
Manuelaio/uncoverappLib documentation built on Feb. 16, 2023, 12:52 a.m.