close #39 by makeing default param col_string_append = location as pe…

…r tidyr::separate(local_name, into = c('site_id', 'location'), remove = F, extra = "merge")
NewGraphEnvironment · Nov 1, 2023 · f379984 · f379984
1 parent d996dc4
commit f379984
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/photo.R b/R/photo.R
@@ -538,7 +538,7 @@ fpr_photo_rename <- function(dat = form_pscis,
                              dir_from_stub =NULL,
                              dir_to_stub = NULL,
                              col_string_add = FALSE,
-                             col_string_append = local_name,
+                             col_string_append = location,
                              ...){
   # create new photo directories
   dat %>%