remove fileSeq

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(

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(