create list with all data files

inbo · Apr 23, 2024 · 50fe976 · 50fe976
1 parent b2bd199
commit 50fe976
Showing 1 changed file with 12 additions and 4 deletions.
diff --git a/source/targets/data_preparation/R/path_to_files.R b/source/targets/data_preparation/R/path_to_files.R
@@ -1,7 +1,15 @@
-# Path to raw data from SOVON
-path_to_counts_sovon <- function(proj_path, file) {
-  file_path <- file.path(proj_path, "data", "mas", file)
-  return(file_path)
+# Paths to raw data from SOVON
+paths_to_counts_sovon <- function(
+    proj_path,
+    pattern = "qgis_export_sovon_wfs") {
+  # List paths to all files
+  file_paths <- list.files(
+    file.path(proj_path, "data"),
+    pattern = pattern,
+    full.names = TRUE,
+    recursive = TRUE)
+
+  return(file_paths)
 }
 
 # Path to counting locations