From 4ec1d1fdfddbcb7cf5241d6d867186cee1555a50 Mon Sep 17 00:00:00 2001
From: Lucas Kook <lucasheinrich.kook@uzh.ch>
Date: Mon, 19 Nov 2018 14:42:42 +0100
Subject: [PATCH] Removing rows containing missing values per default

---
 R/simpleheatmap3.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/simpleheatmap3.R b/R/simpleheatmap3.R
index 0250b08..7d33e05 100644
--- 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]),