changing dots_list() to list2() per tidyverse#234

labouz · Jan 31, 2020 · bcad77a · bcad77a
1 parent 5c6aabe
commit bcad77a
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/R/c.R b/R/c.R
@@ -18,7 +18,7 @@
 #' fs <- list(fa, fb, fab)
 #' fct_c(!!!fs)
 fct_c <- function(...) {
-  fs <- rlang::dots_list(...)
+  fs <- rlang::list2(...)
   fs <- check_factor_list(fs, "...")
 
   if (length(fs) == 0) {

diff --git a/R/collapse.R b/R/collapse.R
@@ -17,9 +17,9 @@
 #' )
 #' fct_count(partyid2)
 fct_collapse <- function(.f, ..., group_other = FALSE) {
-  new <- rlang::dots_list(...)
+  new <- rlang::list2(...)
   levs <- as.list(unlist(new, use.names = FALSE))
-  
+
   if (group_other) {
     f <- check_factor(.f)
     levels <- levels(f)

diff --git a/R/recode.R b/R/recode.R
@@ -51,7 +51,7 @@ fct_recode <- function(.f, ...) {
 }
 
 check_recode_levels <- function(...) {
-  levels <- rlang::dots_list(...)
+  levels <- rlang::list2(...)
 
   is_ok <- function(x) is.character(x) && length(x) == 1
   ok <- vapply(levels, is_ok, logical(1))