Fix NormalizePath

elgabbas · elgabbas · commit 9d9d0f72ddf5 · 2025-03-13T15:45:44.000+01:00
diff --git a/R/General_NormalizePath.R b/R/General_NormalizePath.R
@@ -42,14 +42,9 @@ NormalizePath <- function(Path, MustWork = FALSE) {
     }
   }
 
-  # Determine shell type
-  shell_type <- dplyr::if_else(
-    nzchar(Sys.getenv("ComSpec", unset = "")), "cmd", "sh")
-
   # Process and return normalized path
   Out <- fs::path_abs(Path) %>%
-    fs::path_tidy() %>%
-    shQuote(type = shell_type)
+    fs::path_tidy()
 
   return(Out)
 }
diff --git a/R/Mod_Merge_Chains.R b/R/Mod_Merge_Chains.R
@@ -146,7 +146,7 @@ Mod_Merge_Chains <- function(
     dplyr::mutate(
       Post_Missing = furrr::future_map_lgl(
         .x = Post_Path,
-        .f = function(x){
+        .f = function(x) {
 
           purrr::map_lgl(
             .x = as.character(x),

Original file line number	Diff line number	Diff line change
`@@ -42,14 +42,9 @@ NormalizePath <- function(Path, MustWork = FALSE) {`
`42`	`42`	`}`
`43`	`43`	`}`
`44`	`44`
`45`		`- # Determine shell type`
`46`		`- shell_type <- dplyr::if_else(`
`47`		`- nzchar(Sys.getenv("ComSpec", unset = "")), "cmd", "sh")`
`48`		`-`
`49`	`45`	`# Process and return normalized path`
`50`	`46`	`Out <- fs::path_abs(Path) %>%`
`51`		`- fs::path_tidy() %>%`
`52`		`- shQuote(type = shell_type)`
	`47`	`+ fs::path_tidy()`
`53`	`48`
`54`	`49`	`return(Out)`
`55`	`50`	`}`