From 1704d2e4630ca6d6a136efc9abcaebed32794c5b Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 8 Jul 2022 11:20:25 +0200
Subject: [PATCH] =?UTF-8?q?Afegida=20barra=20de=20progr=C3=A9s.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 chromatoR/app.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/chromatoR/app.R b/chromatoR/app.R
index a9505d1..0acb61f 100644
--- a/chromatoR/app.R
+++ b/chromatoR/app.R
@@ -93,6 +93,8 @@ server <- function(input, output) {
         }
         return(pos)
       }
+      progress <- shiny::Progress$new(min=0, max=3)
+      progress$set(message = "Start", value = 1)
       print("Start")
       
       Apeaks <- getpeaks(obj_ab@traceMatrix[,1])
@@ -116,6 +118,7 @@ server <- function(input, output) {
       pos1<-pos1[,1]
       pos<-pos[,1]
       
+      progress$set(message = "Peaks Detected", value = 2)
       print("Peaks Detected")
       
       primarypeaks <- pos
@@ -182,6 +185,8 @@ server <- function(input, output) {
       obj_ab<<-obj_ab
       obj$seq<-T
       print(as.character(obj_ab@primarySeq))
+      progress$set(message = "Peaks Detected", value = 3)
+      progress$close()
       print("Finished")
     }
   })