r - 检查 html 是否可用

Question

我想知道如何检查 html 是否可用。如果不是，我想控制返回以避免错误停止脚本。 例如:

arq <- readLines("www.pageerror.com.br")
print(arq)

Answer 1

另一种选择是 try() - 它比 trycatch() 使用起来更简单，但功能不那么丰富。您可能还需要抑制警告，因为 R 会报告它无法解析地址。

您希望在脚本中添加类似的内容:

URL <- "http://www.pageerror.com.br"
arq <- try(suppressWarnings(readLines(con <- url(URL))), silent = TRUE)
close(con) ## close the connection
if(inherits(arq, "try-error")) {
    writeLines(strwrap(paste("Page", URL, "is not available")))
} else {
    print(arq)
}

silent = TRUE 位抑制错误报告(如果将此保留为默认 FALSE，则 R 将报告错误但不会中止脚本)。我们将可能引发错误的函数调用包装在 try(....,silent = TRUE) 中，并使用 suppressWarnings() 来抑制警告。然后我们测试返回对象的类arq，如果它继承自类“try-error”，我们就知道无法检索该页面并发出一条消息来指示这一点。否则我们可以打印arq。