minor fix to renew

ready4-dev · Nov 4, 2024 · 2783a6b · 2783a6b
1 parent 96dd80d
commit 2783a6b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/R/mthd_renew.R b/R/mthd_renew.R
@@ -134,6 +134,7 @@ methods::setMethod("renew", "Ready4useDyad", function (x, arrange_by_1L_chr = c(
     var_ctg_chr = "Uncategorised", vars_chr = character(0), what_1L_chr = c("all",
         "dataset", "dictionary"), ...)
 {
+    arrange_by_1L_chr <- match.arg(arrange_by_1L_chr)
     type_1L_chr <- match.arg(type_1L_chr)
     what_1L_chr <- match.arg(what_1L_chr)
     assertthat::assert_that((is.list(dictionary_lups_ls) & (dictionary_lups_ls %>%

diff --git a/data-raw/s4_fns/renew.R b/data-raw/s4_fns/renew.R
@@ -24,6 +24,7 @@ renew_Ready4useDyad <- function(x,
                                 vars_chr = character(0),
                                 what_1L_chr = c("all", "dataset", "dictionary"),
                                 ...){
+  arrange_by_1L_chr <- match.arg(arrange_by_1L_chr)
   type_1L_chr <- match.arg(type_1L_chr)
   what_1L_chr <- match.arg(what_1L_chr)
   assertthat::assert_that((is.list(dictionary_lups_ls) & (dictionary_lups_ls %>% purrr::map_lgl(~ready4show::is_ready4show_correspondences(.x)) %>% all())),