From 2359d6911d38bd4354e12391c06669fa1cafcf7e Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Wed, 13 Jul 2022 15:27:25 +0200
Subject: [PATCH] =?UTF-8?q?Etiquetes=20en=20angl=C3=A8s.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app.R | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/app.R b/app.R
index 2a9b433..5073725 100644
--- a/app.R
+++ b/app.R
@@ -11,12 +11,12 @@ ui <- fluidPage(
   navbarPage("Apps",
      tabPanel("Translation",
         sidebarPanel(
-          fileInput("file1", "Sube fichero (fasta, csv o xlsx)", multiple = FALSE),
+          fileInput("file1", "Upload file (fasta, csv o xlsx)", multiple = FALSE),
           selectInput("spec", label = h3("Specie"), 
                       choices = list("Human" = 1, "E. Coli" = 2), 
                       selected = 1),
-          actionButton("but_an", "Analizar"),
-          selectInput("for_output", label = h3("Formato Output"), 
+          actionButton("but_an", "Analize"),
+          selectInput("for_output", label = h3("Output Format"), 
                       choices = list("fasta" = 1, "tabla" = 2), 
                       selected = 1),
         ),
@@ -96,7 +96,7 @@ server <- function(input, output) {
       print(2)
       observeEvent(input$but_an, {revtrans()})
       if (!is.null(obj$seqs)){
-          data.frame("Nombre"=obj$names, "Seqs"=obj$seqs)
+          data.frame("Name"=obj$names, "Seqs"=obj$seqs)
       }
     })