Enable setting the tip_length in the manual mode

const-ae · Aug 14, 2017 · 7e84859 · 7e84859
1 parent a1853cb
commit 7e84859
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/significance_annotation.R b/R/significance_annotation.R
@@ -61,6 +61,9 @@ StatSignif <- ggplot2::ggproto("StatSignif", ggplot2::Stat,
                     if("map_signif_level" %in% colnames(data)){
                       map_signif_level <- data[["map_signif_level"]]
                     }
+                    if("tip_length" %in% colnames(data)){
+                      tip_length <-  rep(data[["tip_length"]], each=2)
+                    }
 
                     if(! is.null(comparisons)){
                       i <- 0