Correcció de posició al viewer.

chromatoR/app.R

@@ -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)