210127_artikkel/functions/connect_selenium.R

#'
#' Selenium serveriga ühenduse loomine
#' 

#' Juhend Seleniumi serveri kohta:
#' https://robotninja.com/blog/introduction-using-selenium-docker-containers-end-end-testing/
#' docker run -d -p 4444:4444 --name selenium selenium/standalone-firefox:3.4.0
#' http://localhost:4444/wd/hub

library("rvest")
library("seleniumPipes")

## Kontrolli docker ps -a , et selenium server töötaks.
# remDr <- remoteDr(port = 4444L, newSession = TRUE)

# Get the page source
remDr <- remoteDr(
  remoteServerAddr = "http://localhost", port = 4444L,
  browserName = "firefox", version = "", platform = "ANY",
  javascript = TRUE, nativeEvents = TRUE, extraCapabilities = list(),
  path = "wd/hub", newSession = TRUE
)
print(remDr)

# getAllCookies(remDr = remDr)
# getCurrentUrl(remDr)
# deleteAllCookies(remDr)
# deleteCookie(remDr)
# deleteSession(remDr)

# url <- "http://www.neti.ee"
# page <- remDr %>% go(url = url) %>%
#   getPageSource()
# page$node
# page %>% 
#   rvest::html_nodes(".avaleht h2 a") %>%
#   rvest::html_attr("href")
# remDr %>% getNamedCookie()
# remDr %>% getCurrentUrl
# remDr %>% findElement("css", "h2") %>% getElementText
# remDr %>% takeScreenshot
# remDr %>% getTitle()
# remDr %>% deleteSession