tests/testthat/shinytest/time_picker/tests/time_pickerTest.R

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

app$snapshot(screenshot = FALSE)
app$setInputs(time1 = "22:34")
app$setInputs(time1 = "22:17")
app$snapshot(screenshot = FALSE)
app$setInputs(time2 = "14:25")
app$snapshot(screenshot = FALSE)
app$setInputs(update = "click")
app$snapshot(screenshot = FALSE)
daqana/dqshiny documentation built on Sept. 1, 2020, 4:31 p.m.