Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Midoux Cedric
easy16S
Commits
d1e83687
Commit
d1e83687
authored
Aug 23, 2018
by
Midoux Cedric
Browse files
collapsed table
parent
e9cd5af6
Changes
2
Hide whitespace changes
Inline
Side-by-side
server.R
View file @
d1e83687
...
...
@@ -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
(
...
...
@@ -150,10 +150,22 @@ shinyServer
data16S
()
})
output
$
sampledataTable
<-
render
Table
({
output
$
sampledataTable
<-
render
UI
({
validate
(
need
(
sample_data
(
data16S
(),
errorIfNULL
=
FALSE
),
""
))
sapply
(
sample_data
(
data16S
()),
class
)
},
rownames
=
TRUE
,
colnames
=
FALSE
,
caption
=
"Class of sample_data"
,
caption.placement
=
"top"
)
box
(
title
=
"Class of sample_data"
,
width
=
NULL
,
status
=
"primary"
,
collapsible
=
TRUE
,
collapsed
=
TRUE
,
renderTable
({
(
sapply
(
sample_data
(
data16S
()),
class
))
},
rownames
=
TRUE
,
colnames
=
FALSE
)
)
#sapply(sample_data(data16S()), class)
#}, rownames = TRUE, colnames = FALSE, caption = "Class of sample_data", caption.placement = "top")
})
output
$
summaryTable
<-
renderUI
({
validate
(
need
(
data16S
(),
""
))
...
...
ui.R
View file @
d1e83687
...
...
@@ -83,7 +83,7 @@ shinyUI(dashboardPage(
tabPanel
(
"Summary"
,
verbatimTextOutput
(
"phyloseqPrint"
),
table
Output
(
"sampledataTable"
),
ui
Output
(
"sampledataTable"
),
withLoader
(
uiOutput
(
"summaryTable"
)),
tags
$
footer
(
"Questions, problems or comments regarding this application should be sent to "
,
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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