From 8ca3c96d2542bbf78cfda288ddfa0ea3914d20a8 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 8 Jul 2022 13:01:20 +0200
Subject: [PATCH] =?UTF-8?q?Correcci=C3=B3=20no=20actualitzaci=C3=B3=20del?=
 =?UTF-8?q?=20text.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 chromatoR/app.R | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/chromatoR/app.R b/chromatoR/app.R
index 0acb61f..a3479a6 100644
--- a/chromatoR/app.R
+++ b/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()