Error, siempre la misma secuencia.

README.md

@@ -0,0 +1,3 @@
+# Revtrans
+
+Paquet per a la traducció reversa de pèptid a DNA tenint en compte l'ús de codons específics.

app.R

@@ -11,12 +11,12 @@ ui <- fluidPage(
   navbarPage("Apps",
      tabPanel("Translation",
         sidebarPanel(
-          fileInput("file1", "Sube fichero mfasta", multiple = FALSE),
+          fileInput("file1", "Upload file (fasta, csv or xlsx)", multiple = FALSE),
           selectInput("spec", label = h3("Specie"), 
                       choices = list("Human" = 1, "E. Coli" = 2), 
                       selected = 1),
-          actionButton("but_an", "Analizar"),
+          actionButton("but_an", "Analize"),
-          selectInput("for_output", label = h3("Formato Output"), 
+          selectInput("for_output", label = h3("Output Format"), 
                       choices = list("fasta" = 1, "tabla" = 2), 
                       selected = 1),
         ),
@@ -43,7 +43,17 @@ server <- function(input, output) {
     
     observe({
       if (!is.null(input$file1)){ # This ensures that the reading is only tried when File selected
-        obj$fasta<-read.fasta(input$file1$datapath)
+        if (grepl(".xlsx", input$file1$datapath)){
+          file<-openxlsx::read.xlsx(input$file1$datapath)
+          obj$fasta<-dataframe2fas(file)
+        }else{
+          if (grepl(".csv", input$file1$datapath)){
+            file<-read.csv(input$file1$datapath)
+            obj$fasta<-dataframe2fas(file)
+          }else{
+            obj$fasta<-read.fasta(input$file1$datapath)   
+          }
+        }
       }
     })
     
@@ -65,7 +75,7 @@ server <- function(input, output) {
         progress <- shiny::Progress$new(min=0, max=length(seqs))
         for (i in 1:length(seqs)){
           set.seed(123)
-          seqs_DNA<-c(seqsDNA<-reverse_translate(seqs[i],spec))
+          seqs_DNA<-c(seqs_DNA, reverse_translate(seqs[i],spec))
           progress$set(message = "Reverse Translating", value = i)
         }
         progress$close()
@@ -86,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)
       }
     })