Make sure group_by is distinct

UNSW-CEEM · Jul 27, 2023 · 1ef0fa3 · 1ef0fa3
1 parent faf793f
commit 1ef0fa3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/aggregation/aggregate_functions.R b/aggregation/aggregate_functions.R
@@ -83,7 +83,7 @@ vector_groupby_count_zones <- function(data, grouping_cols){
   if (!"zone" %in% grouping_cols) {grouping_cols <- c(grouping_cols, "zone")}
   grouping_cols <- grouping_cols[grouping_cols != "c_id"]
   add_cols <- grouping_cols[!grouping_cols %in% c("clean", "zone")]
-  grouping_cols <- c(grouping_cols, add_cols)
+  grouping_cols <- unique(c(grouping_cols, add_cols))
   data <- group_by(data, .dots=grouping_cols)
   data <- summarise(data , sample_count=length(unique(c_id)))
   data$series_x <- do.call(paste, c(data[c("clean", "zone")], sep = "-" ))