|
@ -260,7 +260,7 @@ server <- function(input, output) { |
|
|
)) |
|
|
)) |
|
|
|
|
|
|
|
|
aln %>% filter(pred != "-") %>% add_column("PosChrom"=1:nrow(.)) %>% |
|
|
aln %>% filter(pred != "-") %>% add_column("PosChrom"=1:nrow(.)) %>% |
|
|
merge(test, all=T) %>% filter(cons == "?") %>% arrange(PosAln) |
|
|
|
|
|
|
|
|
merge(aln, all=T) %>% filter(cons == "?") %>% arrange(PosAln) |
|
|
} |
|
|
} |
|
|
}) |
|
|
}) |
|
|
|
|
|
|
|
|