select_if() and rename_if() handle lgl vectors.

closes #4213

NEWS.md

@@ -15,6 +15,8 @@
 
 * colwise functions `summarise_at()` ... can rename vars in the case of multiple functions (#4180).
 
+* `select_if()` and `rename_if()` handle logical vector predicate (#4213). 
+
 # dplyr 0.8.0.1 (2019-02-15)
 
 * Fixed integer C/C++ division, forced released by CRAN (#4185). 

R/colwise-select.R

@@ -64,7 +64,9 @@ rename_all <- function(.tbl, .funs = list(), ...) {
 #' @export
 select_if <- function(.tbl, .predicate, .funs = list(), ...) {
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
-  .predicate <- as_fun_list(.predicate, enquo(.predicate), caller_env())
+  if (!is_logical(.predicate)) {
+    .predicate <- as_fun_list(.predicate, enquo(.predicate), caller_env())
+  }
   vars <- tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   syms <- vars_select_syms(vars, funs, .tbl)
   select(.tbl, !!!syms)
@@ -73,7 +75,9 @@ select_if <- function(.tbl, .predicate, .funs = list(), ...) {
 #' @export
 rename_if <- function(.tbl, .predicate, .funs = list(), ...) {
   funs <- as_fun_list(.funs, enquo(.funs), caller_env(), ...)
-  .predicate <- as_fun_list(.predicate, enquo(.predicate), caller_env())
+  if (!is_logical(.predicate)) {
+    .predicate <- as_fun_list(.predicate, enquo(.predicate), caller_env())
+  }
   vars <- tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   syms <- vars_select_syms(vars, funs, .tbl, strict = TRUE)
   rename(.tbl, !!!syms)

tests/testthat/test-colwise-select.R

@@ -167,3 +167,18 @@ test_that("mutate_all does not change the order of columns (#3351)", {
   tbl <- group_by(tibble(x = 1:4, y = 1:4, z = 1:4), y)
   expect_message(expect_identical(names(mutate_all(tbl, identity)), names(tbl)), "ignored")
 })
+
+test_that("select_if() and rename_if() handles logical (#4213)", {
+  ids <- "Sepal.Length"
+  expect_identical(
+    iris %>% select_if(!names(.) %in% ids),
+    iris %>% select(-Sepal.Length)
+  )
+
+  expect_identical(
+    iris %>% rename_if(!names(.) %in% ids, toupper),
+    iris %>% rename_at(setdiff(names(.), "Sepal.Length"), toupper)
+  )
+
+})
+