r - RSelenium 和 seleniumPipes 使用 queryRD

Question

我可以使以下工作以及我的其余代码功能：

library(RSelenium)

ecap <- list(chromeOptions = list(args = c('--headless', '--disable-gpu')))

rD <- rsDriver(browser = "chrome", geckover=NULL, iedrver=NULL, phantomver=NULL, extraCapabilities = ecap)
remDr <- rD[["client"]]  

remDr$queryRD(ipAddr = paste0(remDr$serverURL, "/session/", remDr$sessionInfo[["id"]], "/chromium/send_command"),
          method = "POST", qdata = list(cmd = "Page.setDownloadBehavior", params = list(behavior = "allow",
          downloadPath = "D:/")))

我最近遇到了 seleniumPipes，它看起来很棒，可以更好地概述您正在驱动无头 chrome 的其余代码。加载硒管后，我可以打开无头镀铬：

library(RSelenium)
library(seleniumPipes)

rD <- rsDriver(browser = "chrome", port=4567L, geckover=NULL, iedrver=NULL, phantomver=NULL, extraCapabilities = ecap)

remDr <- remoteDr(browserName = "chrome", port=4567L, extraCapabilities = ecap)  

我可以浏览网站。我想添加以下部分：

remDr$queryRD(ipAddr = paste0(remDr$serverURL, "/session/", remDr$sessionInfo[["id"]], "/chromium/send_command"),
          method = "POST", qdata = list(cmd = "Page.setDownloadBehavior", params = list(behavior = "allow",
          downloadPath = "D:/")))

因为这是使用无头 chrome 实际下载文件所必需的。但是，seleniumPipes 不识别 remDr$queryRD 也不识别 remDr %>% queryRD。有谁知道如何添加此部分以使其被 seleniumPipes 识别？

标签： rpiperselenium