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
Guillaume Perréal
easy16S
Commits
a146766f
Commit
a146766f
authored
Sep 12, 2018
by
Midoux Cedric
Browse files
rework clustScript
parent
7882da3a
Changes
1
Hide whitespace changes
Inline
Side-by-side
server.R
View file @
a146766f
...
...
@@ -444,21 +444,22 @@ shinyServer
})
output
$
clustScript
<-
renderText
({
paste0
(
scriptArgs
<-
c
(
"physeq = data"
,
glue
(
"dist = \"{input$clustDist}\""
),
glue
(
"method = \"{input$clustMethod}\""
)
)
if
(
!
is.null
(
checkNull
(
input
$
clustCol
)))
{
scriptArgs
<-
c
(
scriptArgs
,
glue
(
"col = \"{input$clustCol}\""
))
}
script
<-
c
(
scriptHead
,
"# Plot barplot\n"
,
"p <- plot_clust(physeq = data"
,
glue
(
", dist = \"{input$clustDist}\""
),
glue
(
", method = \"{input$clustMethod}\""
),
ifelse
(
is.null
(
checkNull
(
input
$
clustCol
)),
""
,
glue
(
", color = \"{input$clustCol}\""
)
),
")\n"
,
"\n"
,
"plot(p)"
"# Plot samples clustering"
,
glue
(
"p <- plot_clust({glue_collapse(scriptArgs, sep=', ')})"
)
)
script
<-
c
(
script
,
""
,
"plot(p)"
)
return
(
glue_collapse
(
script
,
sep
=
"\n"
))
})
output
$
clust
<-
renderPlot
({
...
...
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