Etiquetes en anglès.

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