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

app$setInputs(timezone = "Asia/Kolkata")
app$uploadFile(file1 = "2019_09_16_h094851_KAN_Garmin_3.gpx")
app$uploadFile(file2 = "2019_09_16_h094851_KAN_AE12.csv")
app$uploadFile(file3 = "2019_09_16_h094851_KAN_DT809.csv")
app$setInputs(join_button = "click", timeout_ = 100000)
Sys.sleep(10)
app$snapshot()
app$setInputs(tabs1 = "3")
Sys.sleep(10)
app$snapshot()
app$setInputs(tabs1 = "1")
app$setInputs(timezone = "UTC")
app$setInputs(join_button = "click", timeout_ = 100000)
Sys.sleep(10)
app$snapshot()
