Commit 060f7c9b authored by Amine  GHOZLANE's avatar Amine GHOZLANE

Add export of the tree

parent eec80d03
Pipeline #32472 passed with stages
in 102 minutes and 5 seconds
......@@ -649,7 +649,8 @@ shinyServer(function(input, output,session) {
downloadButton('ExportTaxo', 'Export taxonomy file')),
tabPanel("Summary",h5(strong("Percentage of annotation")),htmlOutput("SummaryView"),
br(),h5(strong("Number of features by level:")),plotOutput("SummaryViewBarplot",width = 1200,height=500)),
tabPanel("Phylogeny", PhyloTreeMetaROutput('PhyloTreeMetaR'))
tabPanel("Phylogeny", PhyloTreeMetaROutput('PhyloTreeMetaR'),
downloadButton('ExportPhylo', 'Export phylogeny file'))
)
}
......@@ -2318,6 +2319,10 @@ shinyServer(function(input, output,session) {
filename = function() { 'SHAMAN_taxo.csv' },
content = function(file){write.csv(dataInput()$data$taxo, file)}
)
output$ExportPhylo <- downloadHandler(
filename = function() { 'SHAMAN_tree.nhx' },
content = function(file){write.tree(dataInputTree()$data, file=file)}
)
## Export in .csv
output$ExportCounts <- downloadHandler(
filename = function() { 'NormCounts.csv' },
......
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