Ungroup after sample selection

tereom · Sep 27, 2018 · de6e7e6 · de6e7e6
1 parent 50af8be
commit de6e7e6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/select_sample.R b/R/select_sample.R
@@ -91,7 +91,8 @@ select_sample_prop <- function(sampling_frame, stratum = stratum, frac,
         stratum <- dplyr::enquo(stratum)
         sample <- sampling_frame %>%
             dplyr::group_by(!!stratum) %>%
-            dplyr::sample_frac(size = frac, replace = replace)
+            dplyr::sample_frac(size = frac, replace = replace) %>% 
+            dplyr::ungroup()
     }
     return(sample)
 }