escape file path characters from sampleNames for read.flowSet.

RGLab/flowWorkspace#341
RGLab · Sep 13, 2020 · 0e1545f · 0e1545f
1 parent 10e68d2
commit 0e1545f
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/IO.R b/R/IO.R
@@ -1474,6 +1474,8 @@ read.flowSet <- function(files=NULL, path=".", pattern=NULL, phenoData=NULL,
             keyword(x)[["GUID.original"]] <- as.character(keyword(x, "GUID"))
             x
         })
+    #sub / or \,: with _ to avoid trouble later when write.flowSet
+    guids <- as.vector(gsub("[/:\\\\]", "_", guids))
     sampleNames(flowSet) <- guids
     if(!missing(name))
         identifier(flowSet) <- name