Use fs package to deterimine abs paths

Boehringer-Ingelheim · Jan 7, 2025 · f1f3696 · f1f3696
1 parent 434f6e3
commit f1f3696
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -19,6 +19,7 @@ Imports:
     stringr,
     methods,
     rlang,
+    fs,
     rstudioapi (>= 0.11)
 RoxygenNote: 7.3.2
 Suggests:

diff --git a/NAMESPACE b/NAMESPACE
@@ -18,6 +18,7 @@ export(stage_here)
 exportClasses(dsoParams)
 exportMethods(as.list)
 exportMethods(show)
+importFrom(fs,is_absolute_path)
 importFrom(glue,glue)
 importFrom(here,here)
 importFrom(here,i_am)

diff --git a/R/read_params.R b/R/read_params.R
@@ -122,10 +122,11 @@ set_stage <- function(stage_path) {
 #' Should an absolute path be provided to stage_here(), the path remains unchanged.
 #' @param ... additional parts of the path appended to the stage path using `file.path`
 #' @export
+#' @importFrom fs is_absolute_path
 #' @return absolute path to stage
 stage_here <- function(...) {
   # do not change absolute paths
-  if (str_starts(file.path(...), "/")) {
+  if (is_absolute_path(file.path(...))) {
     file.path(...)
   } else {
     file.path(config_env$stage_dir, ...)

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