使用RSelenium在Chrome中启用Adblocker扩展

时间:2016-11-11 16:09:12

标签: r google-chrome selenium rselenium

我正在从此页面抓取R中的数据,http://finviz.com/screener.ashx?v=111&f=earningsdate_nextdays5显示弹出广告。这些广告会影响脚本,因此我想启用adblocker扩展程序:https://chrome.google.com/webstore/detail/adblock/gighmmpiobklfepjocnamgkkbiglidom

我正在使用RSelenium软件包文档中的代码https://cran.r-project.org/web/packages/RSelenium/RSelenium.pdf

我通过打开Chrome浏览器并导航到:chrome:// version /找到了配置文件目录。这是我通常的个人资料,其中启用了adblocker扩展程序。

然而,当我打开chrome时,没有adblocker。我查看了这个页面http://scottcsims.com/wordpress/?p=450,他建议使用add_extension方法,该方法似乎没有在RSelenium中实现。

如何了解如何在R打开的浏览器中启用广告拦截器?

我的代码到目前为止。请注意,这是在mac上完成的,当然您的用户名将与我的用户名不同,因此请务必将getChromeProfile中的第一个参数更改为您在此页面上的Profile Path中找到的内容,chrome:// version /

require(RSelenium)
RSelenium::startServer()
cprof <- getChromeProfile("/Users/<username>/Library/Application Support/Google/Chrome/", "Profile 1")
remDr <<- remoteDriver(browserName = "chrome", extraCapabilities = cprof)
remDr$open()
appURL <- "http://finviz.com/screener.ashx?v=111&f=earningsdate_nextdays5"
remDr$navigate(appURL)

1 个答案:

答案 0 :(得分:0)

由于我更喜欢​​adguard,因此它不是完全阻止扩展程序,但我始终使用它:

下载adguard 从浏览器访问而不是从浏览器访问https://www.crx4chrome.com/go.php?d=4687&i=158&p=31932&s=1&l=https%3A%2F%2Fclients2.googleusercontent.com%2Fcrx%2Fblobs%2FQwAAAHF3InbmK-wFIemaY3I3BCPa0e33dMYlYToYq-WCs1jSyPlSXnr3dNv-HTinVL8eTmtbBlPjwi-hJEL5_ZnPfXkYphLdiwB7LVwS3slKcj15AMZSmuWuPGYPZfS0woRX9brTIZ8faUYQCg%2Fextension_3_0_13_0.crx

示例下载文件路径:/Users/admin/Downloads/extension_3_0_13_0.crx

R代码:

library(RSelenium) #install_github("ropensci/RSelenium")
cprof <- list(chromeOptions = 
                list(extensions = 
                       list(base64enc::base64encode("/Users/admin/Downloads/extension_3_0_13_0.crx"))
                ))


rD <- rsDriver(port = 4444L,extraCapabilities=cprof, browser ="chrome",chromever = "73.0.3683.68")}

#if error port used or need to clear port
#rm(rD)
#rm(remDr)
#gc() #then try again

#set timeout preferences with chrome client
remDr <- rD$client
remDr$setTimeout(type = 'page load', milliseconds = 120000)
remDr$setTimeout(type = 'implicit', milliseconds = 120000)