Merge pull request #663 from adokter/fix_calculate_vp_example

fix CRAN policy violation (#662)
adokter · Jul 15, 2024 · f27f789 · f27f789
2 parents d6d0a02 + 3152d86
commit f27f789
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 8 deletions.
diff --git a/R/calculate_vp.R b/R/calculate_vp.R
@@ -171,19 +171,20 @@
 #'
 #' @examples
 #' # Locate and read the polar volume example file
-#' pvolfile <- system.file("extdata", "volume.h5", package = "bioRad")
+#' pvolfile_source <- system.file("extdata", "volume.h5", package = "bioRad")
 #'
 #' # Copy the file to a home directory with read/write permissions
-#' file.copy(pvolfile, "~/volume.h5")
+#' pvolfile <- paste0(tempdir(),"/volume.h5")
+#' file.copy(pvolfile_source, pvolfile)
 #'
 #' # Calculate the profile
-#' vp <- calculate_vp("~/volume.h5")
+#' vp <- calculate_vp(pvolfile)
 #'
 #' # Get summary info
 #' vp
 #'
 #' # Clean up
-#' file.remove("~/volume.h5")
+#' file.remove(pvolfile)
 calculate_vp <- function(file, vpfile = "", pvolfile_out = "",
                          autoconf = FALSE, verbose = FALSE, warnings = TRUE,
                          mount, sd_vvp_threshold,

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