Fixing bug in report.Rmd

csbl-usp · Jan 17, 2019 · 3d696b7 · 3d696b7
1 parent 7de4337
commit 3d696b7
Showing 1 changed file with 9 additions and 2 deletions.
diff --git a/inst/report/report.Rmd b/inst/report/report.Rmd
@@ -44,8 +44,15 @@ cat("#", title, "{.tabset}")
 ```
 
 ```{r echo=FALSE}
-height <- 1.1*nrow(cem@enrichment$nes)
-height <- ifelse(height == 0, 7, height)
+if(is.null(cem@enrichment$nes)){
+    height <- 7
+}else{
+    height <- 1.1*nrow(cem@enrichment$nes)
+    height <- ifelse(height == 0, 7, height)
+}
+
+#height <- 1.1*nrow(cem@enrichment$nes)
+#height <- ifelse(height == 0, 7, height)
 ```
 
 ## Gene Set Enrichment Analysis