marcelcosta/chromatoR
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity

Afegida barra de progrés.

Browse Source
This commit is contained in:
marcelcosta
2022-07-08 11:20:25 +02:00
parent c01a133038
commit 1704d2e463
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
chromatoR/app.R
+5
View File
@@ -93,6 +93,8 @@ server <- function(input, output) {
} }
return(pos) return(pos)
} }
progress <- shiny::Progress$new(min=0, max=3)
progress$set(message = "Start", value = 1)
print("Start") print("Start")
Apeaks <- getpeaks(obj_ab@traceMatrix[,1]) Apeaks <- getpeaks(obj_ab@traceMatrix[,1])
@@ -116,6 +118,7 @@ server <- function(input, output) {
pos1<-pos1[,1] pos1<-pos1[,1]
pos<-pos[,1] pos<-pos[,1]
progress$set(message = "Peaks Detected", value = 2)
print("Peaks Detected") print("Peaks Detected")
primarypeaks <- pos primarypeaks <- pos
@@ -182,6 +185,8 @@ server <- function(input, output) {
obj_ab<<-obj_ab obj_ab<<-obj_ab
obj$seq<-T obj$seq<-T
print(as.character(obj_ab@primarySeq)) print(as.character(obj_ab@primarySeq))
progress$set(message = "Peaks Detected", value = 3)
progress$close()
print("Finished") print("Finished")
} }
}) })