cat("\n--- Testing ", label, " ---\n", sep = "")

out <- tryCatch(expr, error = function(e) e)

if (inherits(out, "error")) {

cat("FAILED: ", conditionMessage(out), "\n", sep = "")

} else {

cat("SUCCESS\n")

cat("Class: ", paste(class(out), collapse = ", "), "\n", sep = "")

if (!is.null(nrow(out))) cat("Rows: ", nrow(out), "\n", sep = "")

}

invisible(out)