Nothing
# example for elementSendkeys and elementClear and elementClick
remDr <- remoteDr()
remDr %>% go("https://www.google.com/ncr")
remDr %>% getTitle()
# usually google names its search box name="q"
webElem <- remDr %>% findElement("name", "q")
webElem %>% elementSendKeys("Q project")
webElem %>% elementClear()
webElem %>% elementSendKeys("R project", key = "enter")
webElem %>% elementClear()
# this time click the search button
webElem %>% elementSendKeys("R project")
searchButton <- remDr %>% findElement("xpath", "//button[@value='Search']")
searchButton %>% elementClick
# for now google urls search returns are designated h3[@class = 'r']
firstResult <- remDr %>% findElement("xpath", "//h3[@class = 'r']")
firstResult %>% elementClick
remDr %>% deleteSession()
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.