another bug fix

ready4-dev · Mar 11, 2024 · 0a60eb9 · 0a60eb9
1 parent 7de4e09
commit 0a60eb9
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 11 deletions.
diff --git a/R/mthd_author.R b/R/mthd_author.R
@@ -111,10 +111,10 @@ methods::setMethod("author", "VicinityLocalProcessed", function (x, crs_nbr_dbl,
     vicinity_raw_r3 <- x@a_VicinityLookup@vicinity_raw_r3
     ready4use::assert_single_row_tb(vicinity_raw_r3)
     imports_ls <- ingest(x = vicinity_raw_r3, imports_chr = x@imports_chr, 
-        data_type_1L_chr = vicinity_raw_r3$data_type, raw_fls_dir_1L_chr = x@raw_fls_dir_1L_chr, 
+        data_type_1L_chr = vicinity_raw_r3$data_type_chr, raw_fls_dir_1L_chr = x@raw_fls_dir_1L_chr, 
         processed_fls_dir_1L_chr = x@processed_fls_dir_1L_chr, 
         write_1L_lgl = x@write_1L_lgl) %>% stats::setNames(x@imports_chr)
-    if (vicinity_raw_r3$data_type == "Geometry") {
+    if (vicinity_raw_r3$data_type_chr == "Geometry") {
         path_to_seed_sf_1L_chr <- make_paths_to_fls_for_ingest(processed_fls_dir_1L_chr = x@processed_fls_dir_1L_chr, 
             name_chr = names(imports_ls)[1], data_type_chr = "Geometry")
     }

diff --git a/data-raw/s4_fns/author.R b/data-raw/s4_fns/author.R
@@ -19,16 +19,16 @@ author_VicinityLocalProcessed <- function(x,#import_data #write_fls_from_sp_imp_
   vicinity_raw_r3 <- x@a_VicinityLookup@vicinity_raw_r3
   ready4use::assert_single_row_tb(vicinity_raw_r3)
   imports_ls <- ingest(x = vicinity_raw_r3,#import_data
-                            imports_chr = x@imports_chr,
-                            data_type_1L_chr = vicinity_raw_r3$data_type,
-                            raw_fls_dir_1L_chr = x@raw_fls_dir_1L_chr,
-                            processed_fls_dir_1L_chr = x@processed_fls_dir_1L_chr,
-                            write_1L_lgl = x@write_1L_lgl) %>%
+                       imports_chr = x@imports_chr,
+                       data_type_1L_chr = vicinity_raw_r3$data_type_chr,#
+                       raw_fls_dir_1L_chr = x@raw_fls_dir_1L_chr,
+                       processed_fls_dir_1L_chr = x@processed_fls_dir_1L_chr,
+                       write_1L_lgl = x@write_1L_lgl) %>%
     stats::setNames(x@imports_chr)
-  if(vicinity_raw_r3$data_type == "Geometry"){
+  if(vicinity_raw_r3$data_type_chr == "Geometry"){ #
     path_to_seed_sf_1L_chr <- make_paths_to_fls_for_ingest(processed_fls_dir_1L_chr = x@processed_fls_dir_1L_chr,
-                                                    name_chr = names(imports_ls)[1],
-                                                    data_type_chr = "Geometry")
+                                                           name_chr = names(imports_ls)[1],
+                                                           data_type_chr = "Geometry")
   }else{
     path_to_seed_sf_1L_chr <- x@processed_fls_dir_1L_chr #NA_character_
   }
@@ -39,7 +39,7 @@ author_VicinityLocalProcessed <- function(x,#import_data #write_fls_from_sp_imp_
                       crs_dbl = crs_nbr_dbl,
                       overwrite_1L_lgl = x@overwrite_1L_lgl,
                       what_1L_chr = "processed"
-                      )
+  )
   if(return_r4_1L_lgl)
     return_xx <- renewSlot(x,
                            "path_to_seed_sf_1L_chr",