Fix check issues; add some vctrs methods

Author: billdenney

DESCRIPTION

@@ -9,8 +9,11 @@ Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
 Imports: 
-    knitr
+    knitr,
+    vctrs
 Suggests: 
+    dplyr,
+    glue,
     pander,
     rmarkdown,
     testthat (>= 3.0.0),

NAMESPACE

@@ -1,8 +1,11 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(format,tab_list)
 S3method(knit_print,tab_list)
 S3method(knit_print,tab_tibble)
+S3method(print,tab_list)
 export(knit_print)
 export(new_tab_list)
 export(new_tab_tibble)
+export(print_tablist_pander)
 importFrom(knitr,knit_print)

R/knit_print.R

@@ -5,6 +5,7 @@ knitr::knit_print
 #' Print a tab_tibble
 #'
 #' @param x The `tab_tibble` object to print
+#' @param ... Passed to subsequent methods
 #' @returns `x` invisibly
 #' @family knitters
 #' @export

R/objects.R

@@ -22,7 +22,24 @@ new_tab_list <- function(x) {
   x_null <- vapply(X = x, FUN = is.null, FUN.VALUE = TRUE)
   x_df <- vapply(X = x, FUN = inherits, "data.frame", FUN.VALUE = TRUE)
   if (!all(x_null | x_df)) {
-    rlang::abort("the contents of 'x' must be NULL or a 'data.frame'-like object")
+    stop("the contents of 'x' must be NULL or a 'data.frame'-like object")
   }
   vctrs::new_vctr(x, class = "tab_list")
 }
+
+vec_ptype_abbr.tab_list <- function(x, ...) {
+  "tablist"
+}
+
+#' @export
+format.tab_list <- function(x, ...) {
+  rep("A tab_list object", length(x))
+}
+
+#' @export
+print.tab_list <- function(x, ...) {
+  for (idx in seq_along(x)) {
+    print(x[[idx]], ...)
+  }
+  invisible(x)
+}

R/tablist_printers.R

@@ -1,9 +1,13 @@
 #' Print a tablist using `pander::pander()`
-#' @param name description
+#' @param x A table to print
+#' @param caption The caption for the table
+#' @param ... Passed to `pander::pander`
+#' @returns The result of `pander::pander`
+#' @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)
 
-  pander::pander(x, caption = caption)
+  pander::pander(x, caption = caption, ...)
 }