diff --git a/server.R b/server.R index db58e94eb0abebf7cb359a289ca87f4877c67786..e7f7055420b79fe08985a5c8eaf8197bad44cc57 100644 --- a/server.R +++ b/server.R @@ -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( diff --git a/ui.R b/ui.R index 229f5168beb2c741bd1b06266b68018df85b782e..c2691487b6da3a9e41665c271b03eb09e2091ce8 100644 --- a/ui.R +++ b/ui.R @@ -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(