Question

我正在尝试使用while循环来下载一堆JSON文件。

它们的编号从255到1.但是，其中一些缺失（例如，238.json不存在）。

scheduleurl <- "http://blah.blahblah.com/schedulejsonfile="
i <- 255
while ( i > 0) {

    last = paste0(as.character(i), ".json")
    path = "/Users/User/Desktop/Temp"
    fullpath = paste0(path, last)
    ithscheduleurl <- paste0(scheduleurl, as.character(i))
    download.file(ithscheduleurl, fullpath)
    i <- i - 1
    }

我基本上想要编写我的while循环，这样如果遇到一个不存在的文件（当i = 238时），它基本上会继续到237而不是停止。

我以这种方式尝试了tryCatch（）函数，但它不起作用（继续尝试相同的URL）：

while ( i > 0) {
    possibleError <- tryCatch({
    last = paste0(as.character(i), ".json")
    path = "/Users/dlopez/Desktop/Temp"
    fullpath = paste0(path, last)
    ithscheduleurl <- paste0(scheduleurl, as.character(i))
    download.file(ithscheduleurl, fullpath)
    i <- i - 1}
    , error=function(e) e) 

    if(inherits(possibleError, "error")) {
            next
    }
}

任何帮助将不胜感激！

Answer 1

来自RCurl包的

url.exists应该可以解决问题。

library(RCurl)

while ( i > 0) {

last = paste0(as.character(i), ".json")
path = "/Users/User/Desktop/Temp"
fullpath = paste0(path, last)
ithscheduleurl <- paste0(scheduleurl, as.character(i))
if (url.exists(ithscheduleurl)) {
download.file(ithscheduleurl, fullpath)
}
i <- i - 1
}

在R中出错后继续循环

1 个答案: