Adblockerの拡張機能を有効にする最新バージョンのRSeleniumを使用しているChrome

Question

最新のバージョンのRSelenium（1.7.1）を使用してChromeを駆動する場合、同様にAdBlockerを有効にしたいと思うので、質問はthis previous oneと関連しています。 startServerが非推奨になったので、どのようにしてRSeleniumでChromeプロファイルを設定しますか？

私が使用しているコードは次のとおりですが、最後の行が正しいとは思わないです。少なくとも、ChromeがRSeleniumを使用して開かれているときは、AdBlockerが動作していないように見えます。思考？

rD <- rsDriver(verbose = F) 
remDr <- rD$client 
cprof <- getChromeProfile("/Users/<username>/Library/Application Support/Google/Chrome", "Default") 
remDr$extraCapabilities <- cprof 

Answer 1

あなたはrsDriver関数にextraCapabilities引数を渡すことができます。

cprof <- getChromeProfile("/Users/<username>/Library/Application Support/Google/Chrome", "Default") 
rD <- rsDriver(verbose = F, extraCapabilities = cprof) 
remDr <- rD$client 

UPDATE

ます。また、関連するCRXファイルをコードする塩基64で拡張子を追加することができます。あなたがbase64でエンコードする必要があるcrxファイルがあれば、例えばhttp://chrome-extension-downloader.com/からchromeのcrxファイルを得ることができます（adguard adblockerの現在のIDはbgnkhhnnamicmpeenaelnjfhikgbkllgです）。

library(RSelenium) 

cprof <- list(chromeOptions = 
       list(extensions = 
         list(base64enc::base64encode("C:/Users/john/Downloads/Adguard-AdBlocker_v2.5.11.crx")) 
       )) 
rD <- rsDriver(verbose = F, extraCapabilities = cprof) 
remDr <- rD$client 

あなたはjsonliteでエンコードする場合：MAC OSXシエラで

tmpfile <- "C:/Users/john/Downloads/Adguard-AdBlocker_v2.5.11.crx" 
jsonlite::base64_enc(readBin(tmpfile, "raw", file.info(tmpfile)$size)) 

：私は、このためにhttps://cran.r-project.org/web/packages/base64enc/を使用し、私は "seltestprof" クロムに人を追加することで、プロファイルを作成し

。プロファイルはフォルダ内に作成されます。このフォルダは、プロファイルを使用しているときにchrome：// versionを参照すると見つかります。ここにリストされているプロファイルパスが表示されます。 ライブラリ（RSelenium）

cprof <- list(
    chromeOptions = 
    list(extensions = 
      list(base64enc::base64encode("/Users/admin/Downloads/Adguard-AdBlocker_v2.5.11.crx")) 
    ) 
) 
rD <- rsDriver(verbose = F, extraCapabilities = cprof) 
remDr <- rD$client 

：私は次のコードを使用するベース符号化されたCRXを使用する

library(RSelenium) 

cprof <- getChromeProfile("/private/var/folders/c2/d97mz0250bg08rr4g2znxk7m0000gq/T/.org.chromium.Chromium.mS5SA1/", "Profile 1") 
rD <- rsDriver(verbose = F, extraCapabilities = cprof) 
remDr <- rD$client 
remDr$navigate("http://ads-blocker.com/testing/") 
remDr$screenshot(display = TRUE) 

：鉱山

/private/var/folders/c2/d97mz0250bg08rr4g2znxk7m0000gq/T/.org.chromium.Chromium.mS5SA1/Profile 1 

たIは、プロファイルを使用するために、次のコードを実行しました