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

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) { ...@@ -649,7 +649,8 @@ shinyServer(function(input, output,session) {
downloadButton('ExportTaxo', 'Export taxonomy file')), downloadButton('ExportTaxo', 'Export taxonomy file')),
tabPanel("Summary",h5(strong("Percentage of annotation")),htmlOutput("SummaryView"), tabPanel("Summary",h5(strong("Percentage of annotation")),htmlOutput("SummaryView"),
br(),h5(strong("Number of features by level:")),plotOutput("SummaryViewBarplot",width = 1200,height=500)), 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) { ...@@ -2318,6 +2319,10 @@ shinyServer(function(input, output,session) {
filename = function() { 'SHAMAN_taxo.csv' }, filename = function() { 'SHAMAN_taxo.csv' },
content = function(file){write.csv(dataInput()$data$taxo, file)} 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 ## Export in .csv
output$ExportCounts <- downloadHandler( output$ExportCounts <- downloadHandler(
filename = function() { 'NormCounts.csv' }, 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