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

remove fileSeq

parent 82589719
...@@ -27,7 +27,7 @@ shinyServer ...@@ -27,7 +27,7 @@ shinyServer
options = list( options = list(
dom = "lBtip", dom = "lBtip",
pageLength = 10, 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( buttons = list(
'colvis', 'colvis',
list( list(
...@@ -64,14 +64,14 @@ shinyServer ...@@ -64,14 +64,14 @@ shinyServer
{ {
d <- import_biom( d <- import_biom(
BIOMfilename = input$fileBiom$datapath, BIOMfilename = input$fileBiom$datapath,
treefilename = input$fileTree$datapath, treefilename = input$fileTree$datapath# ,
refseqfilename = input$fileSeq$datapath # refseqfilename = input$fileSeq$datapath
) )
} else if (input$biomFormat == "frogs") { } else if (input$biomFormat == "frogs") {
d <- import_frogs( d <- import_frogs(
biom = input$fileBiom$datapath, biom = input$fileBiom$datapath,
treefilename = input$fileTree$datapath, treefilename = input$fileTree$datapath# ,
refseqfilename = input$fileSeq$datapath # refseqfilename = input$fileSeq$datapath
) )
} }
...@@ -689,7 +689,10 @@ shinyServer ...@@ -689,7 +689,10 @@ shinyServer
output$tree <- renderPlot({ output$tree <- renderPlot({
validate( validate(
need(data16S(), "Merci d'importer un fichier d'abondance"), 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( p <- plot_tree(
physeq = prune_taxa(names(sort( physeq = prune_taxa(names(sort(
......
...@@ -67,15 +67,15 @@ shinyUI(dashboardPage( ...@@ -67,15 +67,15 @@ shinyUI(dashboardPage(
label = h4("Arbre :"), label = h4("Arbre :"),
placeholder = "data.nwk" placeholder = "data.nwk"
) )
), )#,
tags$div( # tags$div(
title = "Séquences FASTA des OTU", # title = "Séquences FASTA des OTU",
fileInput( # fileInput(
"fileSeq", # "fileSeq",
label = h4("Séquences de references :"), # label = h4("Séquences de references :"),
placeholder = "data.fasta" # placeholder = "data.fasta"
) # )
) # )
), ),
dashboardBody( dashboardBody(
tabsetPanel( 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