inst/examples/history/tests/testUndoHistory.R

In gadenbuie/shinyThings: Reusable Shiny Modules and Other Shiny Things

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

Sys.sleep(1)
app$setInputs(text = "a")
app$snapshot()
Sys.sleep(1)
app$setInputs(text = "b")
Sys.sleep(1)
app$setInputs(text = "c")
app$snapshot()
app$setInputs(`hist-history_back` = "click")
app$snapshot()
app$setInputs(`hist-history_forward` = "click")
app$snapshot()
app$setInputs(`hist-history_back` = "click")
app$setInputs(`hist-history_back` = "click")
app$setInputs(`hist-history_back` = "click")
app$snapshot()
app$setInputs(`hist-history_forward` = "click")
app$setInputs(`hist-history_forward` = "click")
app$snapshot()
Sys.sleep(1)
app$setInputs(text = "c")
app$snapshot()
Sys.sleep(1)
app$setInputs(text = "d")
app$setInputs(`hist-history_back` = "click")
Sys.sleep(1)
app$setInputs(text = "d")
app$setInputs(`hist-history_back` = "click")
Sys.sleep(1)
app$setInputs(text = "d")
app$snapshot()