|
|
@ -11,7 +11,7 @@ ui <- fluidPage( |
|
|
navbarPage("Apps", |
|
|
navbarPage("Apps", |
|
|
tabPanel("Translation", |
|
|
tabPanel("Translation", |
|
|
sidebarPanel( |
|
|
sidebarPanel( |
|
|
fileInput("file1", "Upload file (fasta, csv o xlsx)", multiple = FALSE), |
|
|
|
|
|
|
|
|
fileInput("file1", "Upload file (fasta, csv or 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), |
|
|
|
