using-rselenium-with-phantomjs

library(RSelenium)

appURL <- "XXXXXX.com"
username <- "myusername"
password <- "mypassword"
RSelenium::startServer()

library(RSelenium)
RSelenium::startServer()
pJS <- phantom(pjs_cmd='path/to/phantomjs', 
               extras=c("--ssl-protocol=any"))
Sys.sleep(5) # give the binary a moment
eCap <- list(phantomjs.page.settings.userAgent 
             = "Mozilla/5.0 (Windows NT 6.1; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0")
remDr <- remoteDriver(browserName = "phantomjs", extraCapabilities = eCap)
Sys.sleep(5) # give the binary a moment
remDr$open()
Sys.sleep(5) # give the binary a moment
#pJS$stop()
remDr$navigate(appURL)
remDr$getPageSource()
userName <- remDr$findElement("id", "username")
userName$sendKeysToElement(list(username))
passWord <- remDr$findElement("id", "passwordword")
passWord$sendKeysToElement(list(password))
logIn <- remDr$findElement("id", "LoginButton")
logIn$clickElement()

remDr$navigate('xxxx')