Canviar thr variable al plot

chromatoR/app.R

@@ -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")
     }