filenames

BenWilliams-NOAA · Sep 5, 2024 · ec4b57f · ec4b57f
1 parent b9bcd92
commit ec4b57f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/inputs.R b/R/inputs.R
@@ -347,7 +347,7 @@ size_at_age <- function(year, area, admb_home = NULL, rec_age, lenbins = NULL, a
     lenbins =  vroom::vroom(here::here(year, "data", "user_input", lenbins), delim = ",")$len_bins
   }
 
-  vroom::vroom(here::here(year, "data", "raw", paste0(area, "bts_specimen_data.csv"))) %>%
+  vroom::vroom(here::here(year, "data", "raw", paste0(area, "_bts_specimen_data.csv"))) %>%
     tidytable::rename_with(tolower) %>%
     tidytable::select(year, age, length) %>%
     tidytable::filter(year>=1990, !is.na(age))  %>%
@@ -357,7 +357,7 @@ size_at_age <- function(year, area, admb_home = NULL, rec_age, lenbins = NULL, a
     tidytable::arrange(age, length) %>%
     tidytable::mutate(sample_size = tidytable::n(), .by = age) -> inter
 
-  vroom::vroom(here::here(year, "data", "raw", paste0("bts_length_data.csv"))) %>%
+  vroom::vroom(here::here(year, "data", "raw", paste0(area, "_bts_length_data.csv"))) %>%
     tidytable::rename_with(tolower) %>%
     tidytable::filter(year>=1990, !is.na(length)) -> dat