fix issue

R/utils.R

@@ -208,7 +208,8 @@ set_decoration <- function(x, deco) {
 }
 
 #' Create a Null Report
-#'
+#' @rdname report_null
+#' @aliases null_report
 #' @param tlg (`TableTree`) object.
 #' @param ... not used.
 #'
@@ -218,13 +219,19 @@ set_decoration <- function(x, deco) {
 #'
 report_null <- function(tlg, ...) {
   if (nrow(tlg) == 0L) {
-    rtables::rtable(header = "Null Report: No observations met the reporting criteria for inclusion in this output.")
+    null_report
   } else {
     checkmate::assert_multi_class(tlg, c("TableTree"))
     tlg
   }
 }
 
+#' @export
+#' @rdname report_null
+null_report <- rtables::rtable(
+  header = "",
+  rrow("Null Report: No observations met the reporting criteria for inclusion in this output.")
+)
 
 #' Prune Table up to an `ElementaryTable`
 #'

tests/testthat/test-empty_report.R

@@ -29,7 +29,8 @@ test_that("tlg functions return null reports when domain table is empty", {
     dm_update_zoomed()
 
   empty_report <- rtables::rtable(
-    header = "Null Report: No observations met the reporting criteria for inclusion in this output."
+    header = "",
+    rrow("Null Report: No observations met the reporting criteria for inclusion in this output.")
   )
   res <- run(aet01_1, dat_empty, prune_0 = TRUE)
   expect_identical(res, empty_report)