now try kwb.nextcloud::download_files()

KWB-R · Mar 13, 2024 · 036109f · 036109f
1 parent 32807c5
commit 036109f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/vignettes/measurement-chains.Rmd b/vignettes/measurement-chains.Rmd
@@ -395,11 +395,13 @@ well_op_file <- kwb.nextcloud::list_files(path = paths$well_operation,
 file <- well_op_file$file[1]
 tdir <- fs::path_norm(paths$download_dir)
 
-if(FALSE) {
+
 
 xlsx_file <- kwb.nextcloud::download_files(hrefs = well_op_file$href,
                                            target_dir = tdir)
 
+if(FALSE) {
+  
 well_op_data <- readxl::read_xlsx(path = xlsx_file) %>% 
   janitor::clean_names() %>%
   dplyr::filter(.data$menge_summe_m3 < 2000)