Merge pull request #325 from tidyverse/if_any-default-fns-arg

`if_any/all()` work without specifying `.fns`

NEWS.md

@@ -1,5 +1,7 @@
 # dtplyr (development version)
 
+* `if_any()` and `if_all()` now work without specifying the `.fns` argument (@mgirlich, #325).
+
 # dtplyr 1.2.1
 
 * Fix for upcoming rlang release.

R/tidyeval-across.R

@@ -45,6 +45,10 @@ dt_squash_if <- function(call, env, data, j = j, reduce = "&") {
   locs <- tidyselect::eval_select(.cols, tbl, allow_rename = FALSE)
   cols <- syms(names(tbl))[locs]
 
+  if (is.null(call$.fns)) {
+    return(Reduce(function(x, y) call2(reduce, x, y), cols))
+  }
+
   fun <- across_fun(call$.fns, env, data, j = j)
 
   out <- vector("list", length(cols))

tests/testthat/test-tidyeval-across.R

@@ -175,3 +175,8 @@ test_that("if_all collapses multiple expresions", {
   dt <- lazy_dt(data.frame(a = 1,  b = 2))
   expect_equal(capture_if_all(dt, if_all(everything(), is.na)), expr(is.na(a) & is.na(b)))
 })
+
+test_that("if_all works without `.fns` argument", {
+  dt <- lazy_dt(data.frame(a = 1,  b = 2))
+  expect_equal(capture_if_all(dt, if_all(c(a:b))), expr(a & b))
+})