tests/utilities.R

In medicalcoder: A Unified and Longitudinally Aware Framework for ICD-Based Comorbidity Assessment

# 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})
}