Update data_cut.R

easystats · May 13, 2022 · a36eb40 · a36eb40
1 parent b6f4e2a
commit a36eb40
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/data_cut.R b/R/data_cut.R
@@ -312,20 +312,20 @@ data_cut.grouped_df <- function(x,
     x[rows, ] <- data_cut(
       x[rows, , drop = FALSE],
       split = split,
-      n_groups = split,
+      n_groups = n_groups,
       range = range,
       lowest = lowest,
       labels = labels,
       select = select,
       exclude = exclude,
-      append = append,
+      append = FALSE, # need to set to FALSE here, else variable will be doubled
       ignore_case = ignore_case,
       verbose = verbose,
       ...
     )
   }
   # set back class, so data frame still works with dplyr
-  attributes(x) <- info
+  attributes(x) <- utils::modifyList(info, attributes(x))
   x
 }