From aae557569bc15e57933bf480e70370e2f7145085 Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Mon, 11 Jul 2022 11:15:00 +0200
Subject: [PATCH] Cambio de nombre de las secuencias a alinear.

---
 chromatoR/app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/chromatoR/app.R b/chromatoR/app.R
index a573223..cb278f9 100644
--- a/chromatoR/app.R
+++ b/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")
     }
   })