|
|
@ -11,12 +11,12 @@ ui <- fluidPage( |
|
|
navbarPage("Apps", |
|
|
navbarPage("Apps", |
|
|
tabPanel("Translation", |
|
|
tabPanel("Translation", |
|
|
sidebarPanel( |
|
|
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"), |
|
|
selectInput("spec", label = h3("Specie"), |
|
|
choices = list("Human" = 1, "E. Coli" = 2), |
|
|
choices = list("Human" = 1, "E. Coli" = 2), |
|
|
selected = 1), |
|
|
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), |
|
|
choices = list("fasta" = 1, "tabla" = 2), |
|
|
selected = 1), |
|
|
selected = 1), |
|
|
), |
|
|
), |
|
|
@ -96,7 +96,7 @@ server <- function(input, output) { |
|
|
print(2) |
|
|
print(2) |
|
|
observeEvent(input$but_an, {revtrans()}) |
|
|
observeEvent(input$but_an, {revtrans()}) |
|
|
if (!is.null(obj$seqs)){ |
|
|
if (!is.null(obj$seqs)){ |
|
|
data.frame("Nombre"=obj$names, "Seqs"=obj$seqs) |
|
|
|
|
|
|
|
|
data.frame("Name"=obj$names, "Seqs"=obj$seqs) |
|
|
} |
|
|
} |
|
|
}) |
|
|
}) |
|
|
|
|
|
|
|
|
|
