don't export utilities

Author: stemangiola

Diff for: NAMESPACE

@@ -17,11 +17,9 @@ S3method(sccomp_remove_unwanted_variation,sccomp_tbl)
 S3method(sccomp_replicate,sccomp_tbl)
 S3method(sccomp_test,sccomp_tbl)
 S3method(simulate_data,tbl)
-export(check_if_sample_is_a_unique_identifier)
 export(get_output_samples)
 export(plot_1D_intervals)
 export(plot_2D_intervals)
-export(print_red_tibble)
 export(sccomp_boxplot)
 export(sccomp_calculate_residuals)
 export(sccomp_estimate)

Diff for: R/utilities.R

@@ -3841,7 +3841,7 @@ harmonise_factor_levels <- function(dataframe_query, dataframe_reference) {
 #' @return A character string containing the coloured tibble output.
 #'
 #' @importFrom crayon red
-#' @export
+#' @noRd
 print_red_tibble <- function(tbl) {
   # Capture the console output of printing the tibble
   example_text <- capture.output(print(tbl))
@@ -3870,7 +3870,7 @@ print_red_tibble <- function(tbl) {
 #' @importFrom dplyr pull
 #' @importFrom dplyr select
 #' @importFrom glue glue
-#' @export
+#' @noRd
 check_if_sample_is_a_unique_identifier <- function(data_wide, .sample) {
   .sample <- enquo(.sample)