set missing rows to ''

mksamur · Aug 22, 2022 · 6e1cc6a · 6e1cc6a
1 parent 068d99b
commit 6e1cc6a
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -369,6 +369,10 @@
     } else {
         rownames(df) <- rowData[[names.field]]
     }
+    ## Use "" instead of missing due to changes in SummarizedExperiment
+    ## constructor
+    if (any(is.na(rownames(df))))
+        rownames(df)[is.na(rownames(df))] <- ""
     if (length(rowData))
     object <- SummarizedExperiment(assays = SimpleList(df),
         rowData = rowData)