Merge pull request #28 from scarnecchia/DEV-17

DEV-17: Fixed error wherein get_inputfiles() would pull in backup files
scarnecchia · May 6, 2022 · 9e0995a · 9e0995a
2 parents 1145f21 + 478b35a
commit 9e0995a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/functions.R b/R/functions.R
@@ -3,7 +3,8 @@ get_data <- function(url, elements) {
 }
 
 get_inputfile <- function(.file) {
-  path <- fs::dir_info("inputfiles", type = "file") %>%
+  path <- fs::dir_info("inputfiles", type = "file", regexp=".file") %>%
+    dplyr::filter(!stringr::str_detect(path, ".bak")) %>%
     dplyr::select(path, change_time, birth_time) %>%
     dplyr::filter(stringr::str_detect(path, .file)) %>%
     dplyr::filter(birth_time == max(birth_time)) %>%