try catch and warning . R


# Give Warning or Error
gWE <- function(x) {
  if (x=="w") {
    warning("this is a warning")
  }
  if (x=="e") {
    stop ("this is an error")
  }
}

w <- "w";  e <- "e";


gWE(w)
gWE(e)
signalCondition(gWE(e))