Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
BICF
Astrocyte
tcga_shiny
Commits
dd4dd4ad
Commit
dd4dd4ad
authored
May 24, 2019
by
Gervaise Henry
🤠
Browse files
Merge branch 'develop' into 'master'
Develop See merge request
!21
parents
0747e2b4
48911e69
Pipeline
#3993
passed with stage
in 40 seconds
Changes
3
Pipelines
2
Hide whitespace changes
Inline
Side-by-side
CHANGELOG.md
View file @
dd4dd4ad
# v1.0.
2
# v1.0.
3
**User Facing**
*
Remove unnecessary legend on boxplot pdf output
*
Remove unnecessary legend on boxplot
**Background**
*Known Bugs*
# v1.0.2 (**MASKED**)
**User Facing**
*
Attempt to remove unnecessary legend on boxplot
**Background**
...
...
@@ -9,7 +17,7 @@
# v1.0.1 (**MASKED**)
**User Facing**
*
Remove blank page in output to pdf
*
R
emove unnecessary legend on boxplot
*
Attempt to r
emove unnecessary legend on boxplot
**Background**
...
...
scripts/server.R
View file @
dd4dd4ad
...
...
@@ -330,9 +330,9 @@ shinyServer(
p
<-
ggplot
(
data
=
data
,
aes
(
x
=
type
,
y
=
value
))
+
geom_boxplot
(
aes
(
fill
=
type
),
outlier.size
=
0.2
,
outlier.alpha
=
0.8
)
+
scale_y_continuous
(
limits
=
c
(
0
,
2000
))
+
geom_text
(
data
=
data.frame
(
x
=
1.5
,
y
=
1800
,
labels
=
pval
,
cancer
=
unique
(
data
$
cancer
)),
aes
(
x
,
y
,
label
=
labels
),
size
=
3
,
inherit.aes
=
FALSE
)
+
theme
(
panel.grid.major
=
element_blank
(),
panel.grid.minor
=
element_blank
(),
panel.background
=
element_blank
(),
axis.line
=
element_line
(
colour
=
"black"
))
panel.background
=
element_blank
(),
axis.line
=
element_line
(
colour
=
"black"
)
,
legend.position
=
"none"
)
#cat("printing",gene,"\n")
print
(
p
+
facet_wrap
(
~
cancer
,
scales
=
"free"
)
+
ggtitle
(
gene
)
+
theme
(
plot.title
=
element_text
(
hjust
=
0.5
)))
print
(
p
+
facet_wrap
(
~
cancer
,
scales
=
"free"
)
+
ggtitle
(
gene
)
+
theme
(
plot.title
=
element_text
(
hjust
=
0.5
)
,
legend.position
=
"none"
))
#incProgress(1/n, detail = paste0("printing plot!"))
}
}
...
...
vizapp/server.R
View file @
dd4dd4ad
...
...
@@ -330,9 +330,10 @@ shinyServer(
p
<-
ggplot
(
data
=
data
,
aes
(
x
=
type
,
y
=
value
))
+
geom_boxplot
(
aes
(
fill
=
type
),
outlier.size
=
0.2
,
outlier.alpha
=
0.8
)
+
scale_y_continuous
(
limits
=
c
(
0
,
2000
))
+
geom_text
(
data
=
data.frame
(
x
=
1.5
,
y
=
1800
,
labels
=
pval
,
cancer
=
unique
(
data
$
cancer
)),
aes
(
x
,
y
,
label
=
labels
),
size
=
3
,
inherit.aes
=
FALSE
)
+
theme
(
panel.grid.major
=
element_blank
(),
panel.grid.minor
=
element_blank
(),
panel.background
=
element_blank
(),
axis.line
=
element_line
(
colour
=
"black"
))
panel.background
=
element_blank
(),
axis.line
=
element_line
(
colour
=
"black"
)
,
legend.position
=
"none"
)
#cat("printing",gene,"\n")
print
(
p
+
facet_wrap
(
~
cancer
,
scales
=
"free"
)
+
ggtitle
(
gene
)
+
theme
(
plot.title
=
element_text
(
hjust
=
0.5
)))
p
<-
p
+
facet_wrap
(
~
cancer
,
scales
=
"free"
)
+
ggtitle
(
gene
)
+
theme
(
plot.title
=
element_text
(
hjust
=
0.5
))
print
(
p
)
#incProgress(1/n, detail = paste0("printing plot!"))
}
}
...
...
@@ -507,11 +508,10 @@ shinyServer(
content
=
function
(
file
)
{
#ggsave(file = file, plot = plotInput(), device = "pdf")
pdf
(
file
,
onefile
=
FALSE
)
plotInput
()
print
(
plotInput
()
+
theme
(
legend.position
=
"none"
))
dev.off
()
}
)
}
)
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