我正在尝试使用R中的lapply函数运行许多参数的API请求。
但是,当我运行此功能时,我收到错误“文件中的错误(con,”r“):无法打开连接”
Google建议使用setInternet2(TRUE)来解决此问题,但是,我收到错误:错误:'setInternet2'已不存在。见帮助(“已解散”
localisedDestinationNameForGivenLang <- function (LocationId) {
gaiaURL <- paste0("https://URL/",LocationId, "?geoVersion=rwg&lcid=", "1036",
"&cid=geo&apk=explorer")
print(LocationId)
localisation <- fromJSON(gaiaURL)
}
lapply(uniqueLocationId, localisedDestinationNameForGivenLang)
有人可以建议修复吗?
下面是一个示例,说明如何识别哪些网站丢失错误,同时仍然从不存在错误的网站获得响应:
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响应,以及那些没有的URL的错误消息。