Correcció de posició al viewer.

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