Correcció no actualització del text.

2022-07-08 13:01:20 +02:00
parent 1704d2e463
commit 8ca3c96d25
1 changed files with 6 additions and 1 deletions
@@ -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()