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
51eb46b1
Commit
51eb46b1
authored
Oct 16, 2018
by
Midoux Cedric
Browse files
table options
parent
d23e22f2
Changes
1
Hide whitespace changes
Inline
Side-by-side
server.R
View file @
51eb46b1
library
(
shinydashboard
)
library
(
dplyr
)
library
(
glue
)
shinyServer
...
...
@@ -222,18 +223,34 @@ shinyServer
Glom
<-
tax_glom
(
data16S
(),
input
$
glomRank
)
taxTableGlom
<-
Glom
%>%
tax_table
()
%>%
as.data.frame
()
%>%
as.data.frame
(
stringsAsFactors
=
FALSE
)
%>%
dplyr
::
select
(
1
:
input
$
glomRank
)
%>%
tibble
::
rownames_to_column
()
otuTableGlom
<-
Glom
%>%
otu_table
()
%>%
as.data.frame
()
%>%
as.data.frame
(
stringsAsFactors
=
FALSE
)
%>%
tibble
::
rownames_to_column
()
joinGlom
<-
dplyr
::
left_join
(
taxTableGlom
,
otuTableGlom
,
by
=
"rowname"
)
%>%
dplyr
::
select
(
-
rowname
)
return
(
joinGlom
)
})
},
options
=
list
(
filter
=
"top"
,
dom
=
"lBtip"
,
pageLength
=
10
,
lengthMenu
=
list
(
c
(
10
,
25
,
50
,
100
,
-1
),
list
(
'10'
,
'25'
,
'50'
,
'100'
,
'All'
)),
buttons
=
list
(
'colvis'
,
list
(
extend
=
'collection'
,
buttons
=
c
(
'copy'
,
'csv'
,
'excel'
,
'pdf'
),
text
=
'Download'
)
),
colReorder
=
TRUE
,
scrollX
=
TRUE
))
output
$
histUI
<-
renderUI
({
validate
(
need
(
data16S
(),
""
))
...
...
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