diff --git a/chromatoR/app.R b/chromatoR/app.R index d9705fe..a75fa94 100644 --- a/chromatoR/app.R +++ b/chromatoR/app.R @@ -94,7 +94,7 @@ server <- function(input, output) { Tpeaks[Tpeaks[,2] > peakthr,], Cpeaks[Cpeaks[,2] > peakthr,]) - peakCusMatrix<-peakCusMatrix %>% as.data.frame() %>% rename(Int=V2) %>% group_by(indexes) %>% summarise(Int=max(Int)[1]) + peakCusMatrix<-peakCusMatrix %>% as.data.frame() %>% dplyr::rename(Int=V2) %>% group_by(indexes) %>% summarise(Int=max(Int)[1]) peakCusMatrix<-as.matrix(peakCusMatrix) pos1<-redDiffs(peakCusMatrix, input$dist1)