From 021af1c759d98ae9a19d138991276a1d1b5dc2f8 Mon Sep 17 00:00:00 2001 From: Daniel Date: Fri, 7 Jun 2024 14:17:31 +0200 Subject: [PATCH] Update R/select_nse.R Co-authored-by: Etienne Bacher <52219252+etiennebacher@users.noreply.github.com> --- R/select_nse.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/select_nse.R b/R/select_nse.R index a671c9bfd..109f7756c 100644 --- a/R/select_nse.R +++ b/R/select_nse.R @@ -83,7 +83,7 @@ if (!is.null(new_names) && !is.null(names(new_names))) { # if so, copy names all_names <- names(new_names) - # if some of the element don't have a name, we set the value as name + # if some of the elements don't have a name, we set the value as name names(new_names)[!nzchar(all_names)] <- new_names[!nzchar(all_names)] # after inclusion and exclusion, the original values in "select" # may have changed, so we check that we only add names of valid values