Make printing actually show up in reports

Author: billdenney

R/knit_print.R

@@ -26,7 +26,7 @@ knit_print.tab_tibble <- function(x, ...) {
 #' @returns `x` invisibly
 #' @family knitters
 #' @export
-knit_print.tab_list <- function(x, ..., caption, print_fun = pander::pander, tab_prefix = NULL, tab_suffix = "\n\n") {
+knit_print.tab_list <- function(x, ..., caption, print_fun = print_tablist_pander, tab_prefix = NULL, tab_suffix = "\n\n") {
   stopifnot(length(x) == length(caption))
   for (idx in seq_along(x)) {
     if (!is.null(tab_prefix)) {

R/tablist_printers.R

@@ -6,8 +6,11 @@
 #' @export
 print_tablist_pander <- function(x, caption, ...) {
   auto_asis_start <- pander::panderOptions("knitr.auto.asis")
-  on.exit(pander::panderOptions(knitr.auto.asis = auto_asis_start))
-  pander::panderOptions(knitr.auto.asis = FALSE)
+  on.exit(pander::panderOptions("knitr.auto.asis", auto_asis_start))
+  pander::panderOptions("knitr.auto.asis", FALSE)
+  if (knitr::opts_current$get("results") != "asis") {
+    warning("`tab_list` printing usually requires `results='asis'` on the chunk header")
+  }
 
   pander::pander(x, caption = caption, ...)
 }

vignettes/example-usage.Rmd

@@ -34,8 +34,9 @@ d_tab <-
   new_tab_tibble()
 ```
 
-Then, print it!
+Then, print it! You must set `results='asis'` for the chunk printing your
+`tab_tibble`.
 
-```{r print}
+```{r print, results='asis'}
 knit_print(d_tab)
 ```