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

Author: stemangiola

NAMESPACE

@@ -6,8 +6,6 @@ S3method(ctl_new_rowid_pillar,SE_print_abstraction)
 S3method(print,SummarizedExperiment)
 S3method(tbl_format_header,SE_print_abstraction)
 S3method(tbl_format_header,tidySummarizedExperiment)
-export(format_covariate_header)
-export(test_tidy_message)
 export(demo_tidy_message)
 export(tidy_message)
 importClassesFrom(SummarizedExperiment,SummarizedExperiment)

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())
@@ -99,7 +97,6 @@ ctl_new_pillar.SE_print_abstraction <- function(controller, x, width, ..., title
 #' @importFrom pillar tbl_format_header
 #' @importFrom cli col_br_black
 #' @importFrom tibble as_tibble
-#' @export
 format_covariate_header <- function(separator_row, printed_colnames, covariate_names, number_of_total_rows, label = "COVARIATES") {
   header_row <-
     map2_chr(separator_row, names(separator_row), ~ if_else(.y %in% covariate_names, .x, .x |> str_replace_all("-", " ")))

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,