prevent writing in package install space

adokter · Jul 29, 2024 · 75787c0 · 75787c0
1 parent 01ba94a
commit 75787c0
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 2 deletions.
diff --git a/R/calculate_vp.R b/R/calculate_vp.R
@@ -173,12 +173,20 @@
 #' # Locate and read the polar volume example file
 #' pvolfile_source <- system.file("extdata", "volume.h5", package = "bioRad")
 #'
+#' # Copy the file to a temporary directory with read/write permissions
+#' pvolfile <- paste0(tempdir(),"/volume.h5")
+#' file.copy(pvolfile_source, pvolfile)
+#'
 #' # Calculate the profile
 #' if (requireNamespace("vol2birdR", quietly = TRUE)) {
-#' vp <- calculate_vp(pvolfile_source)
+#' vp <- calculate_vp(pvolfile)
 #' 
 #' # Get summary info
 #' vp
+#'
+#' # Clean up
+#' file.remove(pvolfile)
+#'
 #' }
 #'
 calculate_vp <- function(file, vpfile = "", pvolfile_out = "",

diff --git a/man/calculate_vp.Rd b/man/calculate_vp.Rd