Merge pull request #26 from mabecker89/main

fix to accommodate slashes in org names
ABbiodiversity · Oct 11, 2023 · 53191fd · 53191fd
2 parents e3cba7d + 4ff82a0
commit 53191fd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/api.R b/R/api.R
@@ -250,12 +250,12 @@ wt_download_report <- function(project_id, sensor_id, reports, weather_cols = TR
   unzip(tmp, exdir = td)
 
   # Remove abstract file
-  abstract <- list.files(td, pattern = "*_abstract.csv", full.names = TRUE)
+  abstract <- list.files(td, pattern = "*_abstract.csv", full.names = TRUE, recursive = TRUE)
   file.remove(abstract)
 
   # List data files, read into R as a list
-  files <- gsub(".csv", "", list.files(td, pattern = ".csv"))
-  files.full <- list.files(td, pattern = ".csv", full.names = TRUE)
+  files <- gsub(".csv", "", list.files(td, pattern = ".csv", recursive = TRUE))
+  files.full <- list.files(td, pattern = ".csv", full.names = TRUE, recursive = TRUE)
   x <- purrr::map(.x = files.full, .f = ~ read.csv(., fileEncoding = "UTF-8-BOM")) %>%
     purrr::set_names(files)