Correcció no actualització del text.

chromatoR/app.R

@@ -183,7 +183,12 @@ server <- function(input, output) {
       obj_ab@secondarySeqID <- "sangerseq package secondary basecalls"
       obj_ab@secondarySeq <- DNAString(paste(secondary, collapse=""))
       obj_ab<<-obj_ab
-      obj$seq<-T
+      if (is.null(obj$seq)){
+        obj$seq<-1
+      }else{
+        obj$seq<-obj$seq+1
+      }
+        
       print(as.character(obj_ab@primarySeq))
       progress$set(message = "Peaks Detected", value = 3)
       progress$close()