renamed format function

TGuillerme · Nov 13, 2024 · a8c9871 · a8c9871
1 parent 51b8a8d
commit a8c9871
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/dispRity.R b/R/dispRity.R
@@ -520,7 +520,7 @@ dispRity <- function(data, metric, dimensions = NULL, ..., between.groups = FALS
     #     } else {
     #         ## Is bootstrapped
     #         for(one_subset in subset_names) {
-    #             disparity[[one_subset]] <- format.results.subsets(disparity[[one_subset]], disparities, one_subset) 
+    #             disparity[[one_subset]] <- .format.results.subsets(disparity[[one_subset]], disparities, one_subset) 
     #         }
     #     }
 

diff --git a/R/dispRity_fun.R b/R/dispRity_fun.R
@@ -672,7 +672,7 @@ combine.pairs <- function(pairs, lapply_data) {
 # }
 
 ## Transform BAT results into dispRity format
-format.results.subsets <- function(one_subset_lapply, disparities, one_subset) {
+.format.results.subsets <- function(one_subset_lapply, disparities, one_subset) {
     ## Get the results
     results <- disparities[grepl(one_subset, rownames(disparities)), , drop = FALSE]
     rownames(results) <- unlist(lapply(strsplit(rownames(results), split = paste0(one_subset, ".")), `[[`, 2))