Cambio de nombre de las secuencias a alinear.

chromatoR/app.R

@@ -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")
     }
   })