## Not run:
# remDr <- remoteDr()
# webElem <- remDR %>% go("http://www.google.com") %>%
# findElement("name", "q")
# # print the webElement
# webElem
#
# # send keys to the web Element
# webElem %>% elementSendKeys("R project", key = "enter")
#
# # close browser
# remDr %>% deleteSession()
# ## End(Not run)
Run the code above in your browser using DataLab