add support for uncount

NAMESPACE

@@ -59,6 +59,7 @@ export(transmute)
 export(transmute_all)
 export(transmute_at)
 export(transmute_if)
+export(uncount)
 export(ungroup)
 import(clisymbols)
 import(dplyr)

NEWS.md

@@ -1,9 +1,10 @@
 # 0.2.0.9000
 
-- support for pivot_longer, pivot_wider
-- support for ungroup (thanks @damianooldoni)
-- support for rename_* (#27)
-- support for top_frac, sample_n, sample_frac, slice
+- tidyr: support for pivot_longer, pivot_wider
+- dplyr: support for ungroup (thanks @damianooldoni)
+- dplyr: support for rename_* (#27)
+- dplyr: support for top_frac, sample_n, sample_frac, slice
+- tidyr: support for uncount
 
 # 0.2.0
 - added detailed merge information for joins (#25)

R/summarize.R

@@ -67,6 +67,12 @@ count <- function(.data, ...) {
     log_summarize(.data, .fun = dplyr::count, .funname = "count", ...)
 }
 
+#' @rdname summarize
+#' @export
+uncount <- function(.data, ...) {
+    log_summarize(.data, .fun = tidyr::uncount, .funname = "uncount", ...)
+}
+
 log_summarize <- function(.data, .fun, .funname, ...) {
     newdata <- .fun(.data, ...)
 

tests/testthat/test_summarize.R

@@ -45,6 +45,15 @@ test_that("count", {
     expect_equal(ncol(out), 3)
 })
 
+test_that("uncount", {
+    expect_message({
+        df <- tibble(x = c("a", "b"), n = c(1, 2))
+        out <- uncount(df, n)
+    })
+    expect_equal(nrow(out), 3)
+    expect_equal(ncol(out), 1)
+})
+
 test_that("summarize: scoped variants", {
     expect_message({
         out <- tidylog::summarize_all(mtcars, max)