Update

functions.R

@@ -321,7 +321,8 @@ one_dimension <- function(x, annot, text_annot, name_annot, size_point = 3, segm
     plot_annot <- c(plot_annot, annotate("segment",x=min_x,xend=max_x, y=count, yend=count, size=segment_size, arrow = arrow(length=unit(0.00,"cm"), type = "closed")))
     
     # Avoid text overlap
-    plot_annot <- c(plot_annot, annotate("text", x = ifelse(count %% 2 == 0, pos_text[1], pos_text[2]), y=count, label = text_annot[[count +1]], angle = 90))
+    if (print_text_annot)
+      plot_annot <- c(plot_annot, annotate("text", x = ifelse(count %% 2 == 0, pos_text[1], pos_text[2]), y=count, label = text_annot[[count +1]], angle = 90))
     count <- count + 1
   }