fix: paths for Windows

rformassspectrometry · May 17, 2024 · 8527d64 · 8527d64
1 parent 9abb4ec
commit 8527d64
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/MsBackendMzR.R b/R/MsBackendMzR.R
@@ -223,10 +223,12 @@ setMethod("dataStorageBasePath", "MsBackendMzR", function(object) {
 setReplaceMethod(
     "dataStorageBasePath", "MsBackendMzR", function(object, value) {
         ds <- dataStorage(object)
+        ds <- gsub("\\", "/", ds, fixed = TRUE)
+        value <- gsub("\\", "/", value, fixed = TRUE)
         cp <- common_path(ds)
         ds <- sub(cp, value, ds, fixed = TRUE)
         if (!all(file.exists(unique(ds))))
             stop("Provided path does not contain all data files.")
-        dataStorage(object) <- ds
+        dataStorage(object) <- normalizePath(ds)
         object
     })