replaced old fn with method call

ready4-dev · Mar 12, 2024 · c8bb2c2 · c8bb2c2
1 parent 0e12444
commit c8bb2c2
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/mthd_renew.R b/R/mthd_renew.R
@@ -194,7 +194,7 @@ methods::setMethod("renew", "VicinityLookup", function (x, package_1L_chr = char
                   match_var_nm_1L_chr = "name_chr", match_value_xx = .y, 
                   evaluate_1L_lgl = FALSE)))
         y_vicinity_processed <- purrr::reduce(data_pk_lup_arguments_ls, 
-            .init = x@vicinity_processed_r3, ~add_att_tb_to_processed_lup(.x, 
+            .init = x@vicinity_processed_r3, ~renew.vicinity_processed(.x, 
                 .y)) %>% dplyr::mutate(data_type_chr = tbl_data_type_1L_chr)
         package_1L_chr <- ifelse(package_1L_chr == "" | is.na(package_1L_chr), 
             "", paste0(package_1L_chr, "::"))

diff --git a/data-raw/s4_fns/renew.R b/data-raw/s4_fns/renew.R
@@ -56,7 +56,7 @@ renew_VicinityLookup <- function(x,
                                                                             evaluate_1L_lgl = FALSE))) # Set names here to allow names based referencing in destination function.
     y_vicinity_processed <- purrr::reduce(data_pk_lup_arguments_ls,
                                       .init = x@vicinity_processed_r3,
-                                      ~ add_att_tb_to_processed_lup(.x,.y)) %>%
+                                      ~ renew.vicinity_processed(.x,.y)) %>% #add_att_tb_to_processed_lup
       dplyr::mutate(data_type_chr = tbl_data_type_1L_chr)
     package_1L_chr <- ifelse(package_1L_chr ==""|is.na(package_1L_chr),"", paste0(package_1L_chr,"::"))
     y_vicinity_processed <- y_vicinity_processed %>%