Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
S
shiny-timecourse-inspector
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
2
Issues
2
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
pertz-lab
shiny-timecourse-inspector
Commits
d11f606f
Commit
d11f606f
authored
Jun 17, 2019
by
Maciej Dobrzynski
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Removed: option to manually assign cluster colours.
Various bug fixes.
parent
5f86a0fd
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
8 additions
and
5 deletions
+8
-5
modules/auxfunc.R
modules/auxfunc.R
+1
-1
modules/boxPlot.R
modules/boxPlot.R
+2
-1
modules/clDistPlot.R
modules/clDistPlot.R
+2
-1
modules/tabClHier.R
modules/tabClHier.R
+3
-2
No files found.
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