Merge pull request #72 from cstepper/wbt_install-unlink-zip

wbt_install: remove downloaded zip file when exiting function
opengeos · Apr 13, 2022 · 6a57171 · 6a57171
2 parents 3ddfc4b + 15bebd6
commit 6a57171
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/wbt.R b/R/wbt.R
@@ -455,7 +455,10 @@ wbt_install <- function(pkg_dir = find.package("whitebox"), force = FALSE) {
     cat("\t", url, "\n")
     cat("(This could take a few minutes, please be patient...)\n")
 
+    # path for downloaded zip file;
+    # remove downloaded zip file when exiting function
     exe_zip <- file.path(pkg_dir, filename)
+    on.exit(unlink(exe_zip), add = TRUE)
 
     if (!dir.exists(pkg_dir)) {
       dir.create(pkg_dir, recursive = TRUE)