Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
d11f606f
Commit
d11f606f
authored
Jun 17, 2019
by
Maciej Dobrzynski
Browse files
Removed: option to manually assign cluster colours.
Various bug fixes.
parent
5f86a0fd
Changes
4
Hide whitespace changes
Inline
Side-by-side
modules/auxfunc.R
View file @
d11f606f
...
...
@@ -18,7 +18,7 @@ require(Hmisc) # for CI calculation
# if true, additional output printed to R console
DEB
=
T
# font sizes in pts for plots
# font sizes in pts for plots
in the manuscript
# PLOTFONTBASE = 8
# PLOTFONTAXISTEXT = 8
# PLOTFONTAXISTITLE = 8
...
...
modules/boxPlot.R
View file @
d11f606f
...
...
@@ -245,7 +245,8 @@ modBoxPlot = function(input, output, session,
in.font.strip
=
PLOTFONTFACETSTRIP
,
in.font.legend
=
PLOTFONTLEGEND
)
+
theme
(
legend.position
=
input
$
selPlotBoxLegendPos
,
axis.text.x
=
LOCrotatedAxisElementText
(
as.numeric
(
input
$
rBAxisLabelsRotate
)))
axis.text.x
=
LOCrotatedAxisElementText
(
as.numeric
(
input
$
rBAxisLabelsRotate
),
size
=
PLOTFONTAXISTEXT
))
return
(
p.out
)
...
...
modules/clDistPlot.R
View file @
d11f606f
...
...
@@ -63,7 +63,8 @@ modClDistPlot = function(input, output, session, in.data, in.cols = NULL, in.fna
in.font.strip
=
PLOTFONTFACETSTRIP
,
in.font.legend
=
PLOTFONTLEGEND
)
+
theme
(
axis.text.x
=
LOCrotatedAxisElementText
(
as.numeric
(
input
$
rBAxisLabelsRotate
),
size
=
PLOTFONTAXISTEXT
)
axis.text.x
=
LOCrotatedAxisElementText
(
as.numeric
(
input
$
rBAxisLabelsRotate
),
size
=
PLOTFONTAXISTEXT
)
)
return
(
p.out
)
...
...
modules/tabClHier.R
View file @
d11f606f
...
...
@@ -51,8 +51,9 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
ticks
=
TRUE
,
round
=
TRUE
),
checkboxInput
(
ns
(
'chBPlotHierClAss'
),
'Manually assign cluster colours'
),
uiOutput
(
ns
(
'uiPlotHierClAss'
)),
# These two lines are to manually assign colours to clusters; it doesn't really work well, so skip
#checkboxInput(ns('chBPlotHierClAss'), 'Manually assign cluster colours'),
#uiOutput(ns('uiPlotHierClAss')),
checkboxInput
(
ns
(
'chBPlotHierClSel'
),
'Manually select clusters to display'
),
uiOutput
(
ns
(
'uiPlotHierClSel'
)),
downloadButton
(
ns
(
'downCellCl'
),
'Download CSV with cell IDs and cluster no.'
)
...
...
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