Cambio de nombre de las secuencias a alinear.
This commit is contained in:
+1
-1
@@ -236,7 +236,7 @@ server <- function(input, output) {
|
|||||||
|
|
||||||
if (!is.null(obj$seq) & input$old != ""){
|
if (!is.null(obj$seq) & input$old != ""){
|
||||||
print(2)
|
print(2)
|
||||||
alignament<-msaClustalW(c("Old"=toupper(input$old),"New"=obj_ab@primarySeq %>% as.character), type="dna")
|
alignament<-msaClustalW(c("Reference"=toupper(input$old),"Predicted"=obj_ab@primarySeq %>% as.character), type="dna")
|
||||||
paste(capture.output(print(alignament, show="complete")), collapse="\n")
|
paste(capture.output(print(alignament, show="complete")), collapse="\n")
|
||||||
}
|
}
|
||||||
})
|
})
|
||||||
|
|||||||
Reference in New Issue
Block a user