Команда «Спасение» в R?

Question

У меня есть этот код:

library(rvest) 
url_list <- c("https://github.com/rails/rails/pull/100", 
       "https://github.com/rails/rails/pull/200", 
       "https://github.com/rails/rails/pull/300") 

mine <- function(url){ 
    url_content <- html(url) 
    url_mainnode <- html_node(url_content, "*") 
    url_mainnode_text <- html_text(url_mainnode) 
    url_mainnode_text <- gsub("\n", "", url_mainnode_text) # clean up the text 
    url_mainnode_text 
} 

messages <- lapply(url_list, mine) 

Однако, как я сделать список больше я склонен впадать в

Error in html.response(r, encoding = encoding) : 
    server error: (500) Internal Server Error 

Я знаю, в Ruby, я могу использовать rescue держать перебор списка, даже если некоторые попытки применения функции не выполняются. Есть ли что-то подобное в R?

Answer 1

Один из вариантов заключается в использовании try(). Для получения дополнительной информации см. here. Вот реализация:

library(rvest) 
url_list <- c("https://github.com/rails/rails/pull/100", 
       "https://github.com/rails/rails/pull/200", 
       "https://github.com/rails/rails/pull/300") 

mine <- function(url){ 
    try(url_content <- html(url)) 
    url_mainnode <- html_node(url_content, "*") 
    url_mainnode_text <- html_text(url_mainnode) 
    url_mainnode_text <- gsub("\n", "", url_mainnode_text) # clean up the text 
    url_mainnode_text 
} 

messages <- lapply(url_list, mine)