replace datawizard::data_unite and datawizard::data_rename with gsub …

…and setNames
easystats · Dec 12, 2024 · 2c69b3e · 2c69b3e
1 parent b29eb47
commit 2c69b3e
Showing 1 changed file with 2 additions and 11 deletions.
diff --git a/R/report_sample.R b/R/report_sample.R
@@ -177,17 +177,8 @@ report_sample <- function(data,
     # for more than one group, fix column names. we don't want "a.b (n=10)",
     # but rather ""a, b (n=10)""
     if (length(by) > 1) {
-      old_names <- datawizard::data_unite(
-        unique(groups),
-        new_column = ".old_names",
-        separator = "."
-      )[[".old_names"]]
-      new_names <- datawizard::data_unite(
-        unique(groups),
-        new_column = ".new_names",
-        separator = ", "
-      )[[".new_names"]]
-      result <- datawizard::data_rename(result, pattern = old_names, replacement = new_names)
+      group_names <- gsub("[.]", ", ", names(result))
+      result <- setNames(result, group_names)
     }
     # remember values of first columns
     variable <- result[[1]]["Variable"]