Run yaml file for parallel selenium test from R or python

Question

I have a simple yaml file:

seleniumhub:
    image: selenium/hub
    ports:
      - 4444:4444

firefoxnode:
    image: selenium/node-firefox-debug
    ports:
      - 4577
    links:
      - seleniumhub:hub

chromenode:
    image: selenium/node-chrome-debug
    ports:
      - 4578
    links:
      - seleniumhub:hub

that I have executed in docker:

docker-compose up -d

I have one hub and two nodes running.

Now I would like to run two very simple selenium commands in parallel (written in RSelenium):

remDr$open()
remDr$navigate("http://www.r-project.org")
remDr$screenshot(display = TRUE)

I would like to know how can I run above selenium commands in Python or R, in parallel. I tried several ways but none works. For example in R:

library(RSelenium)
remDr <- remoteDriver(remoteServerAddr = "192.168.99.100", port = 4444L)
remDr$open()
remDr$navigate("http://www.r-project.org")
remDr$screenshot(display = TRUE)

doesn't do anything. I have also tried to run two remoteDrivers, but that doesn't help ether:

remDr <- remoteDriver(remoteServerAddr = "192.168.99.100", port = 4577L)
remDr$open()
remDr$navigate("http://www.r-project.org")
remDr$screenshot(display = TRUE)

Something similar, example for node: https://github.com/xbx/webdriverio-docker-example — Robert, Feb 05 '18 at 19:54
Thanks, but I want to do it in R or Python, because I am not familiar with JavaScript, Java or C# (I have found the solution in those 3 languages). — Mislav, Feb 05 '18 at 20:39
Define parallel here, you want to run same commands on two browsers ? Can you run two scripts or you want to run them with same script and use threads? — Tarun Lalwani, Feb 06 '18 at 05:09
I would like to run as much browsers as possible (only contraint is RAM), from one R or Python script. — Mislav, Feb 06 '18 at 09:48

score 2 · Accepted Answer · answered Feb 13 '18 at 17:01

This is duplicate of

Run RSelenium in parallel

You can use code in above answer to do parallel execution

library(RSelenium)
library(rvest)
library(magrittr)
library(foreach)
library(doParallel)

URLsPar <- c("http://www.bbc.com/", "http://www.cnn.com", "http://www.google.com",
             "http://www.yahoo.com", "http://www.twitter.com")
appHTML <- c()

(cl <- (detectCores() - 1) %>%  makeCluster) %>% registerDoParallel
# open a remoteDriver for each node on the cluster
clusterEvalQ(cl, {
  library(RSelenium)
  remDr <- remoteDriver$new(remoteServerAddr = ip, port = port)
  remDr$open()
})
myTitles <- c()
ws <- foreach(x = 1:length(URLsPar), .packages = c("rvest", "magrittr", "RSelenium"))  %dopar%  {
  remDr$navigate(URLsPar[x])
  remDr$getTitle()[[1]]
}

# close browser on each node
clusterEvalQ(cl, {
  remDr$close()
})

stopImplicitCluster()

Run yaml file for parallel selenium test from R or python

1 Answers1

Linked