删除函数中导致它在 R 中停止的元素

Question

我有两个简单的函数：f1 和 f2。 假设我们只能访问f2。如何删除 f2 中导致 f1 到 stop 的任何输出并返回其余输出？

我想要的输出显示在代码下方。

# FUNCTION #1:
f1 <- function(...){

   r <- list(...)
   lapply(seq_along(r), function(i) if(r[[i]] == 4) stop("Problem") else r[[i]] + 1)
}

# FUNCTION #2:
f2 <- function(...){

   res <- try(f1(...), silent = TRUE)

  # if any 'res' causes 'stop' remove it, and return the rest!
}

# EXAMPLE:
f2(1, 2, 4)

我想要的输出是：

#[[1]]
#[1] 1

#[[2]]
#[1] 2

Answer 1

如果... 输入中的任何一个出现错误，f1 中的逻辑似乎会停止一切。

所以，在 f2 中，你可以将输入一个一个地输入 f1，正常的输入会得到正确的输出。

f1 <- function(...){

   r <- list(...)
     lapply(seq_along(r), function(i) if(r[[i]] == 4) stop("Problem") else r[[i]] + 1)
}

# FUNCTION #2:
f2 <- function(...){

   # res <- try(f1(...), silent = TRUE)
  r <- list(...)
  res = lapply(r, function(fluffybunny){
    tmp =try(f1(fluffybunny))
    if(class(tmp) =="try-error") tmp=NULL
    return(tmp)
  })
  # if any 'res' causes 'stop' remove it, and return the rest!

  res.remove_error =res[!sapply(res, is.null)]
   return(res.remove_error)
}

# EXAMPLE:
result = f2(1, 2, 4)
#> Error in FUN(X[[i]], ...) : Problem

result
#> [[1]]
#> [[1]][[1]]
#> [1] 2
#> 
#> 
#> [[2]]
#> [[2]][[1]]
#> [1] 3

^{由reprex package (v0.3.0) 于 2019 年 10 月 29 日创建}

---

编辑：从 f2 的输出中删除带有 try-error 的结果。