R：文件错误（con，“r”）：无法打开连接

Question

我正在尝试使用 R 中的 lapply 函数对多个参数运行 API 请求。

但是，当我运行此函数时，我收到错误“文件中的错误（con，“r”）：无法打开连接”

Google 建议使用 setInternet2(TRUE) 来解决此问题，但是，我收到错误消息：错误：'setInternet2' is defunct。 查看帮助（“已失效”

localisedDestinationNameForGivenLang <- function (LocationId) {
 gaiaURL <- paste0("https://URL/",LocationId, "?geoVersion=rwg&lcid=", "1036", 
"&cid=geo&apk=explorer")
 print(LocationId)
 localisation <- fromJSON(gaiaURL)
}

lapply(uniqueLocationId, localisedDestinationNameForGivenLang)

有人可以建议修复吗？

Answer 1

下面是一个示例，说明如何识别哪些网站正在抛出错误，同时仍能从未抛出错误的网站获得响应：

urls = c("http://citibikenyc.com/stations/test", "http://citibikenyc.com/stations/json")

grab_data     <-    function(url) {
  out <- tryCatch(
    {fromJSON(url)}, 
    error=function(x) {
      message(paste(url, x))
      error_msg = paste(url, "threw an error")
      return(error_msg)
    })
    return(out)
}

result <- lapply(urls, grab_data)

result 将是一个列表，其中包含有效 url 的 API 响应，以及无效的错误消息。