Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Maintenance - Mise à jour mensuelle Lundi 6 Février entre 7h00 et 9h00
Open sidebar
Cedric Midoux
Easy16S
Commits
88e023e0
Commit
88e023e0
authored
May 25, 2020
by
Cedric Midoux
Browse files
facet_grid(space = "free")
parent
b65391e7
Changes
3
Hide whitespace changes
Inline
Side-by-side
panels/barplot-server.R
View file @
88e023e0
...
...
@@ -79,7 +79,7 @@ output$barplot <- metaRender2(renderPlot, {
barplotGrid
<-
if
(
!
is.null
(
checkNull
(
input
$
barplotGrid
)))
{
metaExpr
({
facet_grid
(
..
(
paste
(
"."
,
"~"
,
input
$
barplotGrid
)),
scales
=
"free_x"
)
facet_grid
(
..
(
paste
(
"."
,
"~"
,
input
$
barplotGrid
)),
scales
=
"free_x"
,
space
=
"free"
)
})
}
...
...
panels/heatmap-server.R
View file @
88e023e0
...
...
@@ -63,7 +63,7 @@ output$heatmap <- metaRender2(renderPlot, {
heatmapGrid
<-
if
(
!
is.null
(
checkNull
(
input
$
heatmapGrid
)))
{
metaExpr
({
facet_grid
(
..
(
paste
(
"."
,
"~"
,
input
$
heatmapGrid
)),
scales
=
"free_x"
)
facet_grid
(
..
(
paste
(
"."
,
"~"
,
input
$
heatmapGrid
)),
scales
=
"free_x"
,
space
=
"free"
)
})
}
...
...
panels/rarefactionCurve-server.R
View file @
88e023e0
...
...
@@ -38,7 +38,7 @@ output$rarefactionCurve <- metaRender2(renderPlot, {
rarefactionGrid
<-
if
(
!
is.null
(
checkNull
(
input
$
rarefactionGrid
)))
{
metaExpr
({
facet_grid
(
..
(
paste
(
"."
,
"~"
,
input
$
rarefactionGrid
))
,
scales
=
"free_x"
)
facet_grid
(
..
(
paste
(
"."
,
"~"
,
input
$
rarefactionGrid
)))
})
}
...
...
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