similar refactor for named files

r-box · Feb 3, 2024 · 0fa48a2 · 0fa48a2
1 parent 735e03d
commit 0fa48a2
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 5 deletions.
diff --git a/R/boxr_save_load.R b/R/boxr_save_load.R
@@ -31,6 +31,7 @@
 box_save <- function(..., dir_id = box_getwd(), file_name = ".RData", 
                      description = NULL) {
 
+  # using local_tempdir() to preserve the filename
   temp_file <- fs::path(withr::local_tempdir(), file_name)
 
   save(..., envir = parent.frame(), file = temp_file)
@@ -58,8 +59,7 @@ box_save_image <- function(dir_id = box_getwd(), file_name = ".RData",
   }
 
   # using local_tempdir() to preserve the filename
-  temp_dir <- withr::local_tempdir()
-  temp_file <- fs::path(temp_dir, file_name)
+  temp_file <- fs::path(withr::local_tempdir(), file_name)
 
   save.image(file = temp_file)
 

diff --git a/R/boxr_write.R b/R/boxr_write.R
@@ -69,9 +69,8 @@ box_write <- function(object, file_name, dir_id = box_getwd(), description = NUL
   }
 
   # using local_tempdir() to preserve the filename
-  temp_dir <- withr::local_tempdir()
-  temp_file <- fs::path(temp_dir, file_name)
-
+  temp_file <- fs::path(withr::local_tempdir(), file_name)
+
   write_fun(object, temp_file, ...)
   box_ul(dir_id = dir_id, file = temp_file, description = description)
 }