fix case empty significant

protViz · Nov 25, 2018 · 4002133 · 4002133
1 parent 8f21f91
commit 4002133
Showing 1 changed file with 6 additions and 4 deletions.
diff --git a/R/multigroupVolcano.R b/R/multigroupVolcano.R
@@ -52,10 +52,12 @@ multigroupVolcano <- function(misspX,
     effectX <-misspX[,effect]
     typeX<-misspX[,type]
     subsetData <- subset(misspX, (effectX < xintercept[1] | xintercept[2] < effectX) & typeX < pvalue )
-    p <- p + geom_text_repel(data=subsetData, aes_string(effect , colname , label=label),
-                             size=size
-                             , segment.size = segment.size,
-                             segment.alpha = segment.alpha)
+    if(nrow(subsetData) > 0){
+      p <- p + geom_text_repel(data=subsetData, aes_string(effect , colname , label=label),
+                               size=size
+                               , segment.size = segment.size,
+                               segment.alpha = segment.alpha)
+    }
   }
   return(p)
 }