在R中循环时尝试捕获

Question

我正在尝试在我的R代码中加入tryCatch函数，以防止在出现错误时循环中断。

我查看了其他示例但无法应用tryCatch工作。

有没有人知道如何将tryCatch添加到以下循环中以防止任何错误停止循环继续？

for (i in (1:nrow(pagedata))) {
    u <- pagedata[i, "id"]
    url <- paste0("https://www.google.com/", u)
    r <- GET(url)
    print(url)
    if (!http_error(r)) {
        web_page_read_follows <- read.csv(url)
        colnames(web_page_read_follows) <- "follows"
        web_page_collect_follows <- web_page_read_follows[web_page_read_follows$follows %like% "Followers", ]
        web_page_collect_follows <- as.data.frame(web_page_collect_follows)
        colnames(web_page_collect_follows) <- "follows"
        web_page_collect_follows$follows <- gsub("Followers.*", "", web_page_collect_follows$follows)
        web_page_collect_follows$follows <- gsub(".*=", "", web_page_collect_follows$follows)
        web_page_collect_follows <- tail(web_page_collect_follows, -(nrow(web_page_collect_follows) - 1))
        if (length(web_page_collect_follows$follows) > 0) {
            pagedata[i, "followers"] <- web_page_collect_follows$follows
            print(i)
            Sys.sleep(1)
        }
    }
}