r - R phantomJS で Rselenium を使用して実行すると、数回の反復後にハングする

Question

私は phantomJS を使用して、さまざまなサイトからデータを収集しています。データ廃棄プロセス中に、サイトまたはサイト要素を解析するときに多くのクラッシュが発生します。残念ながら、phantomJS も RSelenium も、コンソールに情報やバッグ レポートを提供しません。スクリプトは警告なしでハングします。実行しているように見えますが、実際には何も起こりません。スクリプトの実行を停止する唯一の方法は、R を手動で再起動することです。いくつかのテストの後、phantomJS は通常 remDr$findElements() コマンドの実行時にハングすることがわかりました。firefox と RSelenium を使用してコードを再実行しようとしましたが、正常に動作します。したがって、phantomJS がどのように機能するかが問題です。

phantomJS を実行しているときに似たようなことを経験した人はいますか? この不正行為を修正することは可能ですか?

私は使用しています：

1. ウィンドウズ7
2. セレン2.0
3. R バージョン 3.1.3
4. phantomjs-2.0.0-windows

私のコード:

# starting phantom server driver
phantomjsdir <- paste(mywd, "/phantomjs-2.0.0-windows/bin/phantomjs.exe", sep="" )
phantomjsUserAgent <- "Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/41.0.2272.89 Safari/537.36 OPR/28.0.1750.48"
eCap <- list(phantomjs.binary.path = phantomjsdir, phantomjs.page.settings.userAgent = phantomjsUserAgent )
pJS <- phantom(pjs_cmd = phantomjsdir)
remDr <- remoteDriver(browserName = "phantomjs", extraCapabilities = eCap)
remDr$open(silent = FALSE)


mywords <- c("canon 600d", "sony 58k","nikon","nikon2","nikon 800","nikon 80","nikon 8")
timeout <- 3

#'
#' Exceuting script
#'

for (word in mywords) {

  print(paste0("searching for: ",word))
  ss.word <- word
  remDr$navigate("http://google.com")

  webElem <- remDr$findElement(using = "class", "gsfi")
  webElem$sendKeysToElement(list(enc2utf8(ss.word),key = "enter"))
  Sys.sleep(1)

  print (remDr$executeScript("return document.readyState;")[[1]])
  while (remDr$executeScript("return document.readyState;")[[1]]!= "complete" && totalwait<10) {
    Sys.sleep(timeout)
  }

  print(paste0("search completed: ",ss.word))
  elem.snippet <- remDr$findElements(using="class name",value = "rc")

  for (i in 1:length(elem.snippet)) {


    print(paste0("element opened: ",ss.word,"  pos",i))
    print(elem.snippet[[i]])
    ss.snippet.code  <- elem.snippet[[i]]$getElementAttribute('innerHTML')
    print(paste0("element element innerHTML ok"))
    elemtitle <- elem.snippet[[i]]$findChildElement(using = "class name", value = "r")
    print(paste0("element title ok"))


    elemcode <- elemtitle$getElementAttribute('innerHTML')
    print(paste0("element innerHTML ok"))


    elemtext <- elem.snippet[[i]]$findChildElement(using = "class name", value = "st")
    ss.text <- elemtext$getElementText()[[1]]
    print(paste0("element loaded: ",ss.word,"  pos",i))


    elemloc <- elem.snippet[[i]]$getElementLocation()
    elemsize <- elem.snippet[[i]]$getElementSize()
    print(paste0("element location parsed: ",ss.word,"  pos",i))

  }

  print(paste0("data collected: ",ss.word))
}