From bc9dd50af913f30e2c564b09ea596f7d66f22c3a Mon Sep 17 00:00:00 2001 From: pvictor Date: Mon, 8 Jan 2024 17:17:53 +0100 Subject: [PATCH] as_list -> as.list --- NAMESPACE | 1 - R/edit-data-utils.R | 6 +++--- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/NAMESPACE b/NAMESPACE index c1b5cb6..625abc3 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -63,7 +63,6 @@ importFrom(rio,import) importFrom(rlang,"%||%") importFrom(rlang,as_function) importFrom(rlang,as_label) -importFrom(rlang,as_list) importFrom(rlang,enquo) importFrom(rlang,eval_tidy) importFrom(rlang,exec) diff --git a/R/edit-data-utils.R b/R/edit-data-utils.R index c630d28..9284228 100644 --- a/R/edit-data-utils.R +++ b/R/edit-data-utils.R @@ -253,7 +253,7 @@ rename_edit <- function(data, var_labels) { } -#' @importFrom rlang set_names is_null as_list is_list is_named +#' @importFrom rlang set_names is_null is_list is_named get_variables_labels <- function(labels, column_names, internal_names) { if (is_null(labels)) { labels <- column_names @@ -262,14 +262,14 @@ get_variables_labels <- function(labels, column_names, internal_names) { stopifnot( "If `var_labels` is an unnamed vector, it must have same length as `colnames(data)`" = length(labels) == length(column_names) ) - labels <- set_names(as_list(labels), column_names) + labels <- set_names(as.list(labels), column_names) } stopifnot( "`var_labels` must be a named list" = is_named(labels) ) names(labels) <- internal_names[match(names(labels), column_names)] labels <- modifyList( - x = set_names(as_list(column_names), internal_names), + x = set_names(as.list(column_names), internal_names), val = labels ) }