1 2## Helpers to extract the condition message only due to instability in 3## C level error/warning in displaying the call or not 4 5tce <- function(x) tryCatch(x, error=conditionMessage) 6tcw <- function(x) tryCatch(x, warning=conditionMessage) 7