support tibble::num #257

DESCRIPTION

@@ -30,7 +30,7 @@ Imports:
   checkmate,
   rlang (>= 0.4.7),
   stats,
-  tibble (>= 3.0.0),
+  tibble (>= 3.1.0),
   vctrs,
   tensorA,
   pillar,

R/summarise_draws.R

@@ -16,6 +16,8 @@
 #'   latter names are used. The functions can be specified in any format
 #'   supported by [as_function()][rlang::as_function]. See **Examples**.
 #' @param .args (named list) Optional arguments passed to the summary functions.
+#' @param .num_args (named list) Optional arguments passed to
+#'   [num()][tibble::num] for pretty printing of summaries.
 #' @param .cores (positive integer) The number of cores to use for computing
 #'   summaries for different variables in parallel. Coerced to integer if
 #'   possible, otherwise errors. The default is `.cores = 1`, in which case no
@@ -97,7 +99,8 @@ summarise_draws.default <- function(.x, ...) {
 
 #' @rdname draws_summary
 #' @export
-summarise_draws.draws <- function(.x, ..., .args = list(), .cores = 1) {
+summarise_draws.draws <- function(.x, ..., .args = list(),
+                                  .num_args = list(), .cores = 1) {
   if (ndraws(.x) == 0L) {
     return(empty_draws_summary())
   }
@@ -220,6 +223,11 @@ summarise_draws.draws <- function(.x, ..., .args = list(), .cores = 1) {
     }
     out <- do.call("rbind", summary_list)
   }
+  for (i in seq_cols(out)) {
+    if (is.numeric(out[[i]])) {
+      out[[i]] <- do.call(tibble::num, c(list(out[[i]]), .num_args))
+    }
+  }
   out
 }
 

tests/testthat/test-summarise_draws.R

@@ -120,6 +120,13 @@ test_that(paste(
   expect_identical(sum_x, parsum_x)
 })
 
+test_that("summarise_draws supports tibble::num correctly", {
+  x <- example_draws()
+  expect_output(
+    print(summarise_draws(x, .num_args = list(sigfig = 2, notation="dec"))),
+    "<dec:2>"
+  )
+})
 
 test_that("summarise_draws errors for invalid cores specification", {
   x <- example_draws()