diff --git a/R/reportDuplicates.R b/R/reportDuplicates.R index bd902e2..9db89bf 100644 --- a/R/reportDuplicates.R +++ b/R/reportDuplicates.R @@ -10,6 +10,7 @@ reportDuplicates <- function(mifdata) { duplicates <- mifdata %>% group_by(.data$model, .data$region, .data$variable, .data$period, .data$scenario) %>% filter(n() > 1) %>% + ungroup() %>% droplevels() if (nrow(duplicates) > 0) { short <- duplicates %>%