oops, forgot this

rdewald · Mar 7, 2022 · 4e93cf3 · 4e93cf3
1 parent 407c5d3
commit 4e93cf3
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/rdewald.R b/rdewald.R
@@ -1,7 +1,10 @@
 # oneDrive backup script
 # 
+library(Hmisc)
 library(Microsoft365R)
 od <- get_personal_onedrive()
+stage_dir <- Sys.getenv("ODMW_staging")
+win.stage_dir <- paste0(stage_dir)
 uploads <- list.files(Sys.getenv("ODMW_staging"))
 paste("staged for upload: ", uploads[])
 for (i in seq_along(uploads)) { 
@@ -13,3 +16,13 @@ for (i in seq_along(uploads)) {
                                  , stringr::str_trim(uploads[i]))
   )
 }
+shell(paste("dir", stage_dir))
+for (i in seq_along(uploads)) { 
+    buhbye <- paste0('del '
+                     , stage_dir
+                     , "\\'"
+                     , uploads[i]
+                    )
+    shell(buhbye)
+  }
+