From 4ff82a02a0171df9eb2c472771d1d72474121a46 Mon Sep 17 00:00:00 2001 From: Marcus Becker Date: Wed, 11 Oct 2023 16:15:49 -0600 Subject: [PATCH] fix to accommodate slashes in org names --- R/api.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/api.R b/R/api.R index 17864c8..f4ed45b 100644 --- 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)