Remove unused exports and delete obsolete test script for format_covariate_header function; update NAMESPACE accordingly.

stemangiola · stemangiola · commit b69627c66afa · 2025-06-29T09:58:45.000+10:00
diff --git a/R/tidyprint_1_utlis.R b/R/tidyprint_1_utlis.R
@@ -13,8 +13,6 @@
 #' @importFrom purrr map2_chr
 #' @importFrom purrr map_int
 #' @importFrom dplyr if_else
-#' @importFrom pillar pillar___format_comment
-#' @importFrom pillar NBSP
 #' @export
 ctl_new_rowid_pillar.SE_print_abstraction <- function(controller, x, width, ...) {
   # message('attrx =', x %>% attributes())
diff --git a/test_header_formatting.R b/test_header_formatting.R
diff --git a/tests/testthat/test-header-formatting.R b/tests/testthat/test-header-formatting.R
@@ -49,7 +49,7 @@ test_that("format_covariate_header overlays label as a continuous string", {
   )
   expect_snapshot_output(cat(result2, "\n"))
 
-  result3 <- format_covariate_header(
+  result3 <- tidyprint:::format_covariate_header(
     separator_row = separator_row,
     printed_colnames = printed_colnames,
     covariate_names = covariate_names,

Original file line number	Diff line number	Diff line change
`@@ -49,7 +49,7 @@ test_that("format_covariate_header overlays label as a continuous string", {`
`49`	`49`	`)`
`50`	`50`	`expect_snapshot_output(cat(result2, "\n"))`
`51`	`51`
`52`		`- result3 <- format_covariate_header(`
	`52`	`+ result3 <- tidyprint:::format_covariate_header(`
`53`	`53`	`separator_row = separator_row,`
`54`	`54`	`printed_colnames = printed_colnames,`
`55`	`55`	`covariate_names = covariate_names,`