use withr::local_tempdir()

r-box · Jan 6, 2024 · 8c83637 · 8c83637
1 parent 2eb0612
commit 8c83637
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/boxr_save_load.R b/R/boxr_save_load.R
@@ -57,10 +57,11 @@ box_save_image <- function(dir_id = box_getwd(), file_name = ".RData",
     }
   }
 
-  # TODO: fs
-  temp_file <- normalizePath(file.path(tempdir(), file_name), mustWork = FALSE)
-  on.exit(fs::file_delete(temp_file))
-
+  # using local_tempdir() rather than local_tempfile() to preserve the 
+  # entire filename
+  temp_dir <- withr::local_tempdir()
+  temp_file <- fs::path(temp_dir, file_name)
+
   save.image(file = temp_file)
 
   box_ul(dir_id, temp_file, description = description)