Fix #1508

Author: wlandau

DESCRIPTION

@@ -12,7 +12,7 @@ Description: Pipeline tools coordinate the pieces of computationally
   The methodology in this package
   borrows from GNU 'Make' (2015, ISBN:978-9881443519)
   and 'drake' (2018, <doi:10.21105/joss.00550>).
-Version: 1.11.3.9004
+Version: 1.11.3.9005
 License: MIT + file LICENSE
 URL: https://docs.ropensci.org/targets/, https://github.com/ropensci/targets
 BugReports: https://github.com/ropensci/targets/issues
@@ -60,6 +60,7 @@ Imports:
   cli (>= 2.0.2),
   codetools (>= 0.2.16),
   data.table (>= 1.16.0),
+  fs,
   igraph (>= 2.0.0),
   knitr (>= 1.34),
   prettyunits (>= 1.1.0),

NAMESPACE

@@ -587,6 +587,7 @@ importFrom(data.table,fwrite)
 importFrom(data.table,rbindlist)
 importFrom(data.table,set)
 importFrom(data.table,transpose)
+importFrom(fs,path_abs)
 importFrom(igraph,V)
 importFrom(igraph,adjacent_vertices)
 importFrom(igraph,as_edgelist)

NEWS.md

@@ -1,10 +1,11 @@
-# targets 1.11.3.9004 (development)
+# targets 1.11.3.9005 (development)
 
 * Tone down progress bar output for medium-overhead scenarios.
 * Speed up `tar_meta()` default settings for `tar_read()` etc. (for million-target pipelines).
 * Choose the `"terse"` reporter by default if the calling session is non-interactive. This will hopefully avoid problems on CRAN for packages that use `targets` with the default settings.
 * Improve reporter deprecation messages (#1493, @dakvid).
 * Clarify scope of `tar_renv()` (#1506, @valentingar).
+* Check absolute paths in `tar_assert_allow_meta()` (#1508, @dipterix).
 
 # targets 1.11.3
 

R/tar_package.R

@@ -21,6 +21,7 @@
 #'   is_dynamic_tty make_spinner pb_bar pb_current pb_total
 #' @importFrom codetools findGlobals
 #' @importFrom data.table data.table fread fwrite rbindlist set transpose
+#' @importFrom fs path_abs
 #' @importFrom igraph adjacent_vertices as_edgelist gorder
 #'   graph_from_data_frame igraph_opt igraph_options is_dag simplify topo_sort
 #'   V

R/utils_assert.R

@@ -772,8 +772,10 @@ tar_assert_allow_meta <- function(fun, store) {
   safe <- is.null(target) ||
     is.null(tar_runtime$store) ||
     !identical(
-      normalizePath(as.character(store), mustWork = FALSE),
-      normalizePath(as.character(tar_runtime$store), mustWork = FALSE)
+      fs::path_abs(normalizePath(as.character(store), mustWork = FALSE)),
+      fs::path_abs(
+        normalizePath(as.character(tar_runtime$store), mustWork = FALSE)
+      )
     )
   if (safe) {
     return()