Root needs to be normalized before processing

cderv · cderv · commit 09701ae15f9c · 2025-07-07T11:59:45.000+02:00
diff --git a/R/utils-projects.R b/R/utils-projects.R
@@ -140,6 +140,8 @@ project_path <- function(..., root = NULL) {
     }
   }
 
+  # Normalize the root path
+  root <- xfun::normalize_path(root, mustWork = FALSE)
   # Use xfun::from_root for better path handling
   path <- rlang::try_fetch(
     xfun::from_root(..., root = root, error = TRUE),

Original file line number	Diff line number	Diff line change
`@@ -140,6 +140,8 @@ project_path <- function(..., root = NULL) {`
`140`	`140`	`}`
`141`	`141`	`}`
`142`	`142`
	`143`	`+ # Normalize the root path`
	`144`	`+ root <- xfun::normalize_path(root, mustWork = FALSE)`
`143`	`145`	`# Use xfun::from_root for better path handling`
`144`	`146`	`path <- rlang::try_fetch(`
`145`	`147`	`xfun::from_root(..., root = root, error = TRUE),`