Keep files until object is gc-d, closes #23

print() shows the directory, if still around.

R/package.R

@@ -44,7 +44,6 @@ rcmdcheck <- function(path = ".", quiet = FALSE, args = character(),
   }
 
   targz <- build_package(path, tmp <- tempfile())
-  on.exit(unlink(tmp, recursive = TRUE), add = TRUE)
 
   out <- with_dir(
     dirname(targz),
@@ -63,7 +62,8 @@ rcmdcheck <- function(path = ".", quiet = FALSE, args = character(),
     version = unname(dsc$get("Version")),
     rversion = R.Version()$version.string, # should be the same
     platform = R.Version()$platform,       # should be the same
-    description = read_char(tmpdesc)
+    description = read_char(tmpdesc),
+    tempfiles = tmp
   )
 
   res

R/parse.R

@@ -1,7 +1,7 @@
 
 parse_check_output <- function(output, package = NULL, version = NULL,
                                rversion = NULL, platform = NULL,
-                               description = NULL) {
+                               description = NULL, tempfiles = NULL) {
 
   entries <- strsplit(paste0("\n", output$stdout), "\n* ", fixed = TRUE)[[1]][-1]
 
@@ -27,6 +27,17 @@ parse_check_output <- function(output, package = NULL, version = NULL,
     res$errors = c(res$errors, "R CMD check timed out")
   }
 
+  if (!is.null(tempfiles)) {
+    res$cleaner <- new.env(parent = emptyenv())
+    res$cleaner$cleanme <- tempfiles
+    finalizer <- function(e) {
+      try(unlink(e$cleanme, recursive = TRUE), silent = TRUE)
+    }
+    ## To avoid keeping this execution environment
+    environment(finalizer) <- baseenv()
+    reg.finalizer(res$cleaner, finalizer, onexit = TRUE)
+  }
+
   res
 }
 

R/print.R

@@ -25,6 +25,12 @@ print.rcmdcheck <- function(x, header = TRUE, ...) {
     lapply(x$notes, print_entry)
   }
 
+  if (!is.null(x$cleaner) && file.exists(chkdir <- x$cleaner$cleanme)) {
+    cat("  Check directory: ", sQuote(chkdir), "\n", sep = "")
+  } else {
+    cat("  Check directory already cleared.\n")
+  }
+
   summary(x, ...)
 }