Merge pull request #15 from DavisVaughan/fix/complete-grouped

Ungroup before completing
atorus-research · Jan 25, 2022 · a152af1 · a152af1
2 parents dbaecbe + 89d81ab
commit a152af1
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/shift.R b/R/shift.R
@@ -169,6 +169,7 @@ process_shift_denoms <- function(x) {
  filter(!!denom_where) %>%
  group_by(!!!unname(target_var), !!treat_var, !!!by, !!!cols) %>%
  summarize(n = n()) %>%
+ ungroup() %>%
  complete(!!!unname(target_var), !!treat_var, !!!by, !!!cols) %>%
  # The rows will duplicate for some reason so this removes that
  distinct() %>%