Merge branch 'main' into data_rename_changes

easystats · Dec 13, 2024 · 2a3717b · 2a3717b
2 parents ea13de6 + 1ee2f80
commit 2a3717b
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/R/report_sample.R b/R/report_sample.R
@@ -181,13 +181,16 @@ report_sample <- function(data,
         unique(groups),
         new_column = ".old_names",
         separator = "."
-      )[[".old_names"]]
+      )[".old_names"]
+
       new_names <- datawizard::data_unite(
         unique(groups),
         new_column = ".new_names",
         separator = ", "
-      )[[".new_names"]]
-      result <- datawizard::data_rename(result, select = old_names, replacement = new_names)
+      )[".new_names"]
+
+      name_map <- stats::setNames(new_names[[1]], old_names[[1]])
+      names(result) <- name_map[names(result)]
     }
     # remember values of first columns
     variable <- result[[1]]["Variable"]