result <- tryCatch(
{
getLogo()
},
warning = function(w) {
print(paste0(
"Warning in getLogo: ", w, ". File is to be ",
suppressWarnings(getLogo())$file
))
},
error = function(e) {
print(paste0("Error in in getLogo: ", e))
}
)
Run the code above in your browser using DataLab