Error, siempre la misma secuencia.

app.R

@@ -75,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()