Question

我计划通过RSelenium进行一些刮擦。有时抓取失败，我想知道原因。我注意到错误消息（红色）非常有用，但我不知道如何记录它们。

可以说我提供了“格式不正确的网址”。

tryCatch(
  expr = remDr$navigate("i.am.not.an.url"),
  error = function(error){
    print(error)
    # write.table(error, file = ...)
  }  
)

这就是我得到的，但是对于触发错误的原因并没有给出太多说明

<simpleError:    Summary: UnknownError
Detail: An unknown server-side error occurred while processing the command.
class: org.openqa.selenium.WebDriverException
Further Details: run errorDetails method>

这更具参考价值-但我无法对其进行记录。

Selenium message:Target URL i.am.not.an.url is not well-formed.
Build info: version: '2.53.1', revision: 'a36b8b1', time: '2016-06-30 17:37:03'
System info: host: '9bc48e7a4511', ip: '172.17.0.4', os.name: 'Linux', os.arch: 'amd64', os.version: '4.4.0-1087-aws', java.version: '1.8.0_91'
Driver info: driver.version: unknown

我尝试过的事情：

使用错误处理类。它包含有关错误消息及其含义的非常详细的说明，但是鉴于当前的错误，我无法提取它们。

errHandle = errorHandler(remDr)
errHandle$checkStatus(remDr)
errHandle$checkError(res = remDr)

使用来自另一个#SO问题的消息处理程序：

messageHandler <- function(fun, ...) {
  zz <- textConnection("foo", "w", local = TRUE)
  sink(zz, type = "message")
  res <- fun(...)  
  sink(type = "message")
  close(zz)
  #handle messages
  list(res, messages = foo) 
}

wrongURL <- function() {
  remDr$navigate("mistake")
}

messageHandler(fun = wrongURL)

Answer 1

我通过errorDetails()找到了一种方法：

tryCatch(
  expr = remDr$navigate("i.am.not.an.url"),
  error = function(error){
    return(remDr$errorDetails()$localizedMessage)
  }  
)

捕获R Selenium错误消息并将其写入日志

1 个答案: