edited starter_sf typo

ready4-dev · Mar 12, 2024 · 9182ce5 · 9182ce5
1 parent 3ce00a0
commit 9182ce5
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
@@ -236,7 +236,7 @@ methods::setMethod("renew", "VicinityLookup", function (x, package_1L_chr = char
             country_chr = x@vicinity_raw_r3 %>% dplyr::pull(country_chr), 
             area_type_chr = x@vicinity_raw_r3 %>% dplyr::pull(area_type_chr), 
             area_bndy_yr_chr = x@vicinity_raw_r3 %>% dplyr::pull(area_bndy_yr_chr), 
-            starter_sf = starter_sf_nm_1L_chr, subdivision_chr = x@vicinity_raw_r3 %>% 
+            starter_sf_nm_chr = starter_sf_nm_1L_chr, subdivision_chr = x@vicinity_raw_r3 %>% 
                 dplyr::pull(uid_chr))
         x <- renewSlot(x, "vicinity_templates_r3", starter_sf_lup_r3)
     }

diff --git a/data-raw/s4_fns/renew.R b/data-raw/s4_fns/renew.R
@@ -113,7 +113,7 @@ renew_VicinityLookup <- function(x,
                                          country_chr = x@vicinity_raw_r3 %>% dplyr::pull(country_chr),
                                          area_type_chr = x@vicinity_raw_r3 %>% dplyr::pull(area_type_chr),
                                          area_bndy_yr_chr = x@vicinity_raw_r3 %>% dplyr::pull(area_bndy_yr_chr),
-                                         starter_sf = starter_sf_nm_1L_chr,
+                                         starter_sf_nm_chr = starter_sf_nm_1L_chr,
                                          subdivision_chr = x@vicinity_raw_r3 %>% dplyr::pull(uid_chr)) ## Assumes length one list
     x <- renewSlot(x,
                    "vicinity_templates_r3",