In f0nzie/petro.One: Statistics and Text Mining for Oil and Gas Papers from OnePetro Metadata

library('httr')
url <- 'https://www.fidelity.com/fund-screener/evaluator.shtml#!&ft=BAL_all&ntf=N&expand=%24FundType&rsk=5'
page <- GET(url)

print(http_status(page))

page_text <- content(page, as='text')

grepl('GMMAX', page_text, ignore.case=T)

grepl('Aberdeen', page_text, ignore.case=T)

library(RSelenium)

remDr <- remoteDriver(remoteServerAddr = "192.168.99.100", port = 4445L)

remDr$open()

remDr$navigate("https://cran.r-project.org/")
remDr$switchToFrame("banner")
webElems <- remDr$findElements("partial link text", "Download R")

sapply(webElems, function(x) x$getElementText())

remDr$navigate("http://www.google.com/ncr")
remDr$getTitle()

remDr$getStatus()

remDr$navigate("http://www.bbc.co.uk")

remDr$getCurrentUrl()

remDr$goBack()
remDr$getCurrentUrl()

remDr$goForward()
remDr$getCurrentUrl()

Sending text to elements

remDr$navigate("http://www.google.com/ncr")
webElem <- remDr$findElement(using = "css", "[name = 'q']")
webElem$sendKeysToElement(list("R Cran"))

remDr$navigate("http://www.google.com/ncr")
webElem <- remDr$findElement(using = "css", "[name = 'q']")
webElem$sendKeysToElement(list("R Cran", "\uE007"))

remDr$maxWindowSize()
remDr$screenshot(display = TRUE)

f0nzie/petro.One documentation built on May 29, 2019, 12:05 a.m.