```{r include=FALSE}
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")
}
```
```{r results='asis', eval=have_a_result}
cat(sprintf(title, dQuote(variable)))
cat("\n")
```
```{r echo=FALSE, eval=have_a_result}
# 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))
}))
```
