Cambio de nombre de las secuencias a alinear.

This commit is contained in:
2022-07-11 11:15:00 +02:00
parent d7a7e946a3
commit aae557569b
+1 -1
View File
@@ -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")
} }
}) })