Commit eb1e7206 authored by Midoux Cedric's avatar Midoux Cedric
Browse files

remove fileSeq

parent 82589719
......@@ -27,7 +27,7 @@ shinyServer
options = list(
dom = "lBtip",
pageLength = 10,
lengthMenu = list(c(10, 25, 50, 100,-1), list('10', '25', '50', '100', 'All')),
lengthMenu = list(c(10, 25, 50, 100, -1), list('10', '25', '50', '100', 'All')),
buttons = list(
'colvis',
list(
......@@ -64,14 +64,14 @@ shinyServer
{
d <- import_biom(
BIOMfilename = input$fileBiom$datapath,
treefilename = input$fileTree$datapath,
refseqfilename = input$fileSeq$datapath
treefilename = input$fileTree$datapath# ,
# refseqfilename = input$fileSeq$datapath
)
} else if (input$biomFormat == "frogs") {
d <- import_frogs(
biom = input$fileBiom$datapath,
treefilename = input$fileTree$datapath,
refseqfilename = input$fileSeq$datapath
treefilename = input$fileTree$datapath# ,
# refseqfilename = input$fileSeq$datapath
)
}
......@@ -689,7 +689,10 @@ shinyServer
output$tree <- renderPlot({
validate(
need(data16S(), "Merci d'importer un fichier d'abondance"),
need(phy_tree(data16S(), errorIfNULL = FALSE), "Arbre phylo invalide")
need(
phy_tree(data16S(), errorIfNULL = FALSE),
"Arbre phylo invalide"
)
)
p <- plot_tree(
physeq = prune_taxa(names(sort(
......
......@@ -67,15 +67,15 @@ shinyUI(dashboardPage(
label = h4("Arbre :"),
placeholder = "data.nwk"
)
),
tags$div(
title = "Séquences FASTA des OTU",
fileInput(
"fileSeq",
label = h4("Séquences de references :"),
placeholder = "data.fasta"
)
)
)#,
# tags$div(
# title = "Séquences FASTA des OTU",
# fileInput(
# "fileSeq",
# label = h4("Séquences de references :"),
# placeholder = "data.fasta"
# )
# )
),
dashboardBody(
tabsetPanel(
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment