marcelcosta/revtrans
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Etiquetes en anglès.

Browse Source
This commit is contained in:
marcelcosta
2022-07-13 15:27:25 +02:00
parent e705417d75
commit 2359d6911d
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app.R
+4 -4
View File
@@ -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"), actionButton("but_an", "Analize"),
selectInput("for_output", label = h3("Formato Output"), 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)
} }
}) })