turn off photo_extra 4 tag in fpr_photo_rename to facilitate getting …

…phase 1 photos sorted into directories as part of NewGraphEnvironment/fish_passage_template_reporting#36
NewGraphEnvironment · Nov 15, 2024 · 55a9c5d · 55a9c5d
1 parent 50e2c5a
commit 55a9c5d
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/photo.R b/R/photo.R
@@ -645,8 +645,8 @@ fpr_photo_rename <- function(dat = form_pscis,
                                                    janitor::make_clean_names(photo_extra2_tag, allow_dupes = T, sep_out = ''),
                                                  stringr::str_detect(photo_renamed, 'photo_extra3') ~
                                                    janitor::make_clean_names(photo_extra3_tag, allow_dupes = T, sep_out = ''),
-                                                 stringr::str_detect(photo_renamed, 'photo_extra4') ~
-                                                   janitor::make_clean_names(photo_extra4_tag, allow_dupes = T, sep_out = ''),
+                                                 # stringr::str_detect(photo_renamed, 'photo_extra4') ~
+                                                 #   janitor::make_clean_names(photo_extra4_tag, allow_dupes = T, sep_out = ''),
                                                  T ~ photo_renamed),
                 photo_renamed = stringr::str_replace_all(photo_renamed, 'photo_', ''))
   # generalize above