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

Correcció de posició al viewer.

Browse Source
This commit is contained in:
Marcel
2022-07-09 09:56:51 +02:00
parent 8e02689e42
commit d7a7e946a3
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
chromatoR/app.R
+2 -3
View File
@@ -249,9 +249,8 @@ server <- function(input, output) {
max<-min+width max<-min+width
let<-obj_ab@primarySeq %>% as.character %>% strsplit("") let<-obj_ab@primarySeq %>% as.character %>% strsplit("")
## He de trobar els dos T en una fila peakpos<-apply(obj_ab@peakAmpMatrix,1,function(x) which(x == max(x,na.rm=T))[1])
picks_x<-unlist(t(obj_ab@peakPosMatrix))[apply(obj_ab@peakAmpMatrix,1,function(x) x == max(x,na.rm=T)) %>% picks_x<-sapply(1:length(peakpos), function(i) obj_ab@peakPosMatrix[i, peakpos[i]])
as.list() %>% unlist()]
picks<-data.frame(rows=picks_x, Base=let[[1]], num=1:length(let[[1]])) %>% picks<-data.frame(rows=picks_x, Base=let[[1]], num=1:length(let[[1]])) %>%
filter(num >= min & num <= max) #%>% mutate(rows=rows-min) filter(num >= min & num <= max) #%>% mutate(rows=rows-min)