diff --git a/R/c.R b/R/c.R index b0c525ab..a37c4970 100644 --- 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 index 3b09b0f3..7758418b 100644 --- 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 index abe601f3..cadaf094 100644 --- 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))