# define some helper functions for the testing suite
tryCatchError <- function(expr, ...) {
  tryCatch(expr, ..., error = function(e) {e})
}

tryCatchWarning <- function(expr, ...) {
  tryCatch(expr, ..., warning = function(w) {w})
}