## Not run:
# remDr <- remoteDr()
# remDr %>% go("https://www.google.com/ncr") %>%
# getTitle()
# sScript <- "setTimeout(function(){alert('HELLO')},1000); return 'DONE';"
# remDr %>% executeScript(sScript, args = list())
# remDr %>% dismissAlert()
#
# sScript <- "setTimeout(function(){confirm('Press a button')},1000); return 'DONE';"
# remDr %>% executeScript(sScript, args = list())
# remDr %>% acceptAlert()
#
# sScript <- "setTimeout(function(){confirm('Press a button')},1000); return 'DONE';"
# remDr %>% executeScript(sScript, args = list())
# remDr %>% getAlertText()
# remDr %>% dismissAlert()
#
#
# sScript <- "setTimeout(function(){prompt('Please enter your name', '')},1000); return 'DONE';"
# remDr %>% executeScript(sScript, args = list())
# remDr %>% getAlertText()
# remDr %>% sendAlertText("Buck Rogers?")
#
# remDr %>% deleteSession()
#
# ## End(Not run)
Run the code above in your browser using DataLab