如何确定 url 对象是否返回“404 Not Found”？

Question

简单地说：如果

x <- read.csv(url)

存在，然后 R 将返回该 url 的内容。一个很好的例子，如果你想试试，可能是 "http://ichart.finance.yahoo.com/table.csv?s=IBM&a=00&b=1&c=2008&d=03&e=4&f=2014&g=d&ignore=.csv" 。如果将该特定 url 分配给 url 并按上述方式运行，它将从包含过去 5 年 IBM 股票数据的 Yahoo 网站加载一个 data.frame 到 x。

但是如何事先判断任何给定的 url 是否会让你 404'd 呢？

类似：

is.404.or.not(url)

或许

status(connect.to(url))

谢谢！

Answer 1

您可以使用RCurl 包：

R> library(RCurl)
Loading required package: bitops
R> url.exists("http://google.com")
[1] TRUE
R> url.exists("http://csgillespie.org")
[1] FALSE

或者，您可以使用 httr 包

R> library(httr)
R> http_status(GET("http://google.com"))
$category
[1] "success"

$message
[1] "success: (200) OK"

R> http_status(GET("http://csgillespie.org"))
$category
[1] "server error"

$message
[1] "server error: (503) Service Unavailable"