用Lapply处理错误

Question

我试图在R中运行以下代码：

player1_html=lapply(player1,readLines)

其中，player1是由15个字符向量组成的字符数组，包含要读取的不同页面的urls。我面临的问题是，有些页面出现404错误，程序因此中断，导致以下错误：

Error in file(con, "r") : cannot open the connection

我想问一问，是否有一种方法，我可以在lapply中处理这个问题，因为我忽略了导致错误的链接。另外，在使用readLines(不是在lapply中)时，处理这样一个错误的正常方法是什么？

Answer 1

同样，装饰师是一种可能的好方法：

strongify <- function(f)
{
    function(...){
        tryCatch({
            f(...)
        },
    error=function(e) return(NA)
    })
}

strongReadLines = strongify(readLines)

player1_html = lapply(player1,strongReadLines)

在发生错误时向您提供NA。很明显，你装饰的功能不应该还NA，...or，拉皮条客，你的装潢师！