Removing rows containing missing values per default

protViz · Nov 19, 2018 · 4ec1d1f · 4ec1d1f
1 parent 42346c1
commit 4ec1d1f
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/simpleheatmap3.R b/R/simpleheatmap3.R
@@ -47,8 +47,9 @@ simpleheatmap3 <- function(pln,
                            nrOfClustersCol = 3,
                            nrOfClustersRow = 3, ...)
 {
+  pln <- na.omit(as.matrix(pln))
   if(plot) {
-    tmp <- heatmap3::heatmap3( as.matrix(pln) , scale=scale  , col=palette ,
+    tmp <- heatmap3::heatmap3( pln , scale=scale  , col=palette ,
               labRow=labRow,
               labCol = labCol,
               cexRow=0.1 + 1/log10(dim(pln)[1]),