Remove vars() from exported functions

Cause import warnings when both purrr and dplyr are imported.
Should eventually be reexported from rlang.

cc @ColinFay

NAMESPACE

@@ -204,7 +204,6 @@ export(splice)
 export(tail_while)
 export(transpose)
 export(update_list)
-export(vars)
 export(vec_depth)
 export(walk)
 export(walk2)

NEWS.md

@@ -215,10 +215,14 @@ arguments.
   manually with `!!!`. This change is for consistency with other
   dots-collecting functions of the tidyverse.
 
-* `map_at()`, `lmap_at()` and `modify_at()` now supports selection using `vars()` 
-  and `tidyselect` (@ColinFay, #608)
+* `map_at()`, `lmap_at()` and `modify_at()` now supports selection
+  using `vars()` and `tidyselect` (@ColinFay, #608).
 
-* `detect()` now has a .default argument to specify the value returned when 
+  Note that for now you need to import `vars()` from dplyr or call it
+  qualified like `dplyr::vars()`. It will be reexported from rlang in
+  a future release.
+
+* `detect()` now has a .default argument to specify the value returned when
   nothing is detected (#622, @ColinFay).
 
 

R/utils.R

@@ -29,27 +29,6 @@ check_tidyselect <- function(){
   }
 }
 
-#' Select names
-#'
-#' This helper function is intended to provide a semantic equivalent to the one
-#' from `dplyr::mutate_at()`. It can be used in the `*_at` functions of `purrr`
-#' like `map_at()`. Note that the `tidyselect` package has to be installed.
-#'
-#' @param ... The variable to include in the selection. You can use bare name or
-#'   helpers from the `tidyselect` package.
-#'
-#' @export
-#'
-#' @examples
-#' \dontrun{
-#' library(tidyselect)
-#' x <- list(a = "b", b = "c", aa = "bb")
-#' map_at(x, vars(contains("a")), toupper)
-#'}
-vars <- function (...) {
-  quos(...)
-}
-
 at_selection <- function(nm, .at){
   if (is_quosures(.at)){
     check_tidyselect()

tests/testthat/helper-map.R

@@ -1,2 +1,5 @@
 
 named <- function(x) set_names(x, chr())
+
+# Until we can reexport from rlang
+vars <- quos

tests/testthat/test-lmap.R

@@ -13,7 +13,6 @@ test_that("lmap output is list if input is list", {
     out
   }
   expect_is(lmap_at(x, vars(tidyselect::contains("a")), maybe_rep), "list")
-
 })
 
 test_that("lmap output is tibble if input is data frame", {