在r中结合两个功能（使用TryCatch）

Question

我想制作一个具有3个技能

1. 的新功能，如果发生错误，请打印“错误”。不要停止整个过程，使其继续进行

2. 如果发生警告，请继续进行

   ，请打印警告消息

3. 如果没有错误和警告，请打印“无”。

对于1）我的函数如下：

efunc <- function(error){
  return(NA) 
}

tryc <- function(x){tryCatch(x, error = efunc)}

2），3），我参考此页面（我如何保存警告和错误作为功能的输出？）和 调整了一些代码，使以下功能

myTryCatch <- function(expr) {
  warn <- err <- NULL
  value <- withCallingHandlers(
    tryCatch(expr, error=function(e) {
      err <<- e                        # <<- is not typo
      print("error")
    }), warning=function(w) {
      warn <<- w                      # <<- is not typo
      invokeRestart("muffleWarning")
    })
  if(is.null(warn)){
    warn<-'Nothing'
  }
  if(is.null(err)){
    err<-'Nothing'
  }
  warning=warn
  paste(unlist(warning),collapse="")


}

回想，也许可以结合这两个功能。 或者，mytrycatch（）已经具有Tryc（）的技能。 但是我不确定。