r - 如何确定 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"