fix: issue #471

sneumann · May 20, 2020 · 919ecd3 · 919ecd3
1 parent 82c736e
commit 919ecd3
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 1 deletion.
diff --git a/R/functions-XCMSnExp.R b/R/functions-XCMSnExp.R
@@ -54,7 +54,12 @@ dropGenericProcessHistory <- function(x, fun) {
     xs@rt <- rts
 
     ## @phenoData
-    xs@phenoData <- pData(from)
+    pd <- pData(from)
+    if (nrow(pd) != length(fileNames(from))) {
+        pd <- data.frame(file_name = basename(fileNames(from)))
+        rownames(pd) <- pd$file_name
+    }
+    xs@phenoData <- pd
     ## @filepaths
     xs@filepaths <- fileNames(from)
 

diff --git a/inst/NEWS b/inst/NEWS
@@ -1,5 +1,7 @@
 Changes in version 3.10.1
 
+- Fix for issue #471. Thanks for Andris Jankevics for reporting and providing a
+  solution.
 - Fix issue #475.
 - Fix problem in converting an XCMSnExp into an xcmsSet object (issue #464).