Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Amine GHOZLANE
shaman
Commits
c2e3d1e6
Commit
c2e3d1e6
authored
Jun 09, 2020
by
Amine GHOZLANE
Browse files
Add export tables
parent
7334a71b
Pipeline
#31919
passed with stages
in 106 minutes and 31 seconds
Changes
2
Pipelines
1
Show whitespace changes
Inline
Side-by-side
.gitignore
View file @
c2e3d1e6
redoofig.R
*.Rproj.user
*.Rhistory
*.RData
...
...
server.R
View file @
c2e3d1e6
...
...
@@ -642,7 +642,8 @@ shinyServer(function(input, output,session) {
if
(
!
is.null
(
tree
))
{
res
=
tabBox
(
width
=
NULL
,
selected
=
"Count table"
,
tabPanel
(
"Count table"
,
DT
::
dataTableOutput
(
"DataCounts"
)),
tabPanel
(
"Count table"
,
DT
::
dataTableOutput
(
"DataCounts"
),
downloadButton
(
'ExportRawCounts'
,
'Export count table file'
)),
tabPanel
(
"Taxonomy"
,
DT
::
dataTableOutput
(
"DataTaxo"
),
actionButton
(
"deleteTaxo"
,
"Delete annotation"
),
downloadButton
(
'ExportTaxo'
,
'Export taxonomy file'
)),
...
...
@@ -655,7 +656,8 @@ shinyServer(function(input, output,session) {
else
{
res
=
tabBox
(
width
=
NULL
,
selected
=
"Count table"
,
tabPanel
(
"Count table"
,
DT
::
dataTableOutput
(
"DataCounts"
)),
tabPanel
(
"Count table"
,
DT
::
dataTableOutput
(
"DataCounts"
),
downloadButton
(
'ExportRawCounts'
,
'Export count table file'
)),
tabPanel
(
"Taxonomy"
,
DT
::
dataTableOutput
(
"DataTaxo"
),
actionButton
(
"deleteTaxo"
,
"Delete annotation"
),
downloadButton
(
'ExportTaxo'
,
'Export taxonomy file'
)),
...
...
@@ -2307,6 +2309,10 @@ shinyServer(function(input, output,session) {
write_biom
(
make_biom
(
dataMergeCounts
()
$
CT_noNorm
,
sample_metadata
=
values
$
TargetWorking
[,
-1
],
observation_metadata
=
dataInput
()
$
data
$
taxo_biom
),
file
)}
)
output
$
ExportRawCounts
<-
downloadHandler
(
filename
=
function
()
{
'SHAMAN_count.csv'
},
content
=
function
(
file
){
write.csv
(
dataInput
()
$
data
$
counts
,
file
)}
)
output
$
ExportTaxo
<-
downloadHandler
(
filename
=
function
()
{
'SHAMAN_taxo.csv'
},
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment