From 2783a6bc32ba8dc402eb746343e6a04bed64093c Mon Sep 17 00:00:00 2001
From: Matthew P Hamilton <30450935+matthewphamilton@users.noreply.github.com>
Date: Tue, 5 Nov 2024 10:46:05 +1100
Subject: [PATCH] minor fix to renew

---
 R/mthd_renew.R          | 1 +
 data-raw/s4_fns/renew.R | 1 +
 2 files changed, 2 insertions(+)

diff --git a/R/mthd_renew.R b/R/mthd_renew.R
index c31ae54e..58e4e96d 100644
--- 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
index bf43e318..a65bccd3 100644
--- 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())),