如何在 R 中强制 For 循环() 或 lapply() 运行并显示错误消息

在此代码中，当我使用 for 循环或函数 lapply 时，出现以下错误

"Error in get_entrypoint (debug_port):
  Cannot connect R to Chrome. Please retry. "


library(rvest)
library(xml2) #pull html data
library(selectr) #for xpath element

url_stackoverflow_rmarkdown <- 
  'https://stackoverflow.com/questions/tagged/r-markdown?tab=votes&pagesize=50'

web_page <- read_html(url_stackoverflow_rmarkdown)

questions_per_page <- html_text(html_nodes(web_page, ".page-numbers.current"))[1]

link_questions <- html_attr(html_nodes(web_page, ".question-hyperlink")[1:questions_per_page], 
                            "href")

setwd("~/WebScraping_chrome_print_to_pdf") 

for (i in 1:length(link_questions)) {
  question_to_pdf <- paste0("https://stackoverflow.com",
                            link_questions[i])

  pagedown::chrome_print(question_to_pdf) 
}

是否有可能建立一个for loop() or use lapply从中断的地方重复代码？也就是说，从最后i值而不破坏代码？

非常感谢

我编辑了@Rui Barradas 的想法tryCatch()。 您可以尝试执行如下操作。 这IsValues要么得到链接值，要么得到错误的链接is.

IsValues <- list()
for (i in 1:length(link_questions)) {
  question_to_pdf <- paste0("https://stackoverflow.com",
                            link_questions[i])

  IsValues[[i]] <- tryCatch(
    {
      message(paste("Converting", i))

      pagedown::chrome_print(question_to_pdf)
    },
    error=function(cond) {
      message(paste("Cannot convert", i))
      # Choose a return value in case of error
      return(i)
    }) 
}

然后，你可以重新绑定你的价值观并提取坏的is:

do.call(rbind, IsValues)[!grepl("\\.pdf$", do.call(rbind, IsValues))]

[1] "3"  "5"  "19" "31"

您可以阅读更多有关tryCatch() in 这个答案 https://stackoverflow.com/questions/12193779/how-to-write-trycatch-in-r.