In dataquieR: Data Quality in Epidemiological Research

if ((all(!is.na(resp_vars)) && (length(resp_vars) == 1)) || outputSlot == "SummaryPlot") {
  stop("Plot result")
}
if (outputSlot == "SummaryTable") {
  stop("Not a table result")
}
all_res <- current_results[resp_vars == variable]
have_a_result <- any(vapply(all_res, function(r) {
  length(r) > 0
}, FUN.VALUE = logical(1)))
if (!have_a_result) {
  stop("No results here")
}

cat(sprintf(title, dQuote(dataquieR::prep_title_escape(variable, html = FALSE))))
cat("\n")

# if (variable == "SBP_0" && iform == "acc_loess") save(all_res, variable, file = "/tmp/yyy.RData")
invisible(lapply(all_res, function(r) {
  lapply(r, function(v) lapply(v, print))
}))