Afegida barra de progrés.

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