Inici de correcció de posició.

chromatoR/app.R

@@ -249,9 +249,11 @@ server <- function(input, output) {
       max<-min+width
       
       let<-obj_ab@primarySeq %>% as.character %>% strsplit("")
-      picks_x<-apply(obj_ab@peakPosMatrix, 1, max, na.rm=T)
+      ## 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()]
       
-      picks<-data.frame(rows=apply(obj_ab@peakPosMatrix, 1, max, na.rm=T), 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)
       
       ranPeaks<-range(picks$rows)