Canviar thr variable al plot

2022-07-08 10:50:41 +02:00
parent cf8d95a695
commit c01a133038
1 changed files with 1 additions and 1 deletions
@@ -229,7 +229,7 @@ server <- function(input, output) {
        geom_text(data=picks, aes(label=Base, y=3800, color=factor(Base,levels=c("G","A","T","C"))))+
        geom_text(data=picks, aes(label=num, y=4250), size=3, angle=90, hjust=0.5, vjust=0.5)+
        scale_color_manual(values=c("G"="black", "A"="#66CC00", "T"="red","C"="blue"))+
-        geom_hline(yintercept = peakthr)+
+        geom_hline(yintercept = input$thr)+
        theme_classic()
      print("Final Imagen")
    }