Cambio de nombre de las secuencias a alinear.

2022-07-11 11:15:00 +02:00
parent d7a7e946a3
commit aae557569b
1 changed files with 1 additions and 1 deletions
@@ -236,7 +236,7 @@ server <- function(input, output) {
    
    if (!is.null(obj$seq) & input$old != ""){
      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")
    }
  })