fix(server): #304 Delete data after importing from URL

iNZightVIT · Dec 19, 2023 · ed44fe6 · ed44fe6
1 parent 64fffe7
commit ed44fe6
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/functions.R b/functions.R
@@ -1861,7 +1861,11 @@ get.data.from.URL <- function(URL, data.dir.import) {
     print(e)
   }, warning = function(w) {
     print(w)
-  }, finally = {})
+  }, finally = {
+    if (file.exists(paste0(data.dir.import, "/Imported/", name))) {
+      unlink(paste0(data.dir.import, "/Imported/", name))
+    }
+  })
 }
 
 get.data.name.from.URL <- function(URL) {