Commit d11f606f authored by Maciej Dobrzynski's avatar Maciej Dobrzynski
Browse files

Removed: option to manually assign cluster colours.

Various bug fixes.
parent 5f86a0fd
...@@ -18,7 +18,7 @@ require(Hmisc) # for CI calculation ...@@ -18,7 +18,7 @@ require(Hmisc) # for CI calculation
# if true, additional output printed to R console # if true, additional output printed to R console
DEB = T DEB = T
# font sizes in pts for plots # font sizes in pts for plots in the manuscript
# PLOTFONTBASE = 8 # PLOTFONTBASE = 8
# PLOTFONTAXISTEXT = 8 # PLOTFONTAXISTEXT = 8
# PLOTFONTAXISTITLE = 8 # PLOTFONTAXISTITLE = 8
......
...@@ -245,7 +245,8 @@ modBoxPlot = function(input, output, session, ...@@ -245,7 +245,8 @@ modBoxPlot = function(input, output, session,
in.font.strip = PLOTFONTFACETSTRIP, in.font.strip = PLOTFONTFACETSTRIP,
in.font.legend = PLOTFONTLEGEND) + in.font.legend = PLOTFONTLEGEND) +
theme(legend.position = input$selPlotBoxLegendPos, 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) return(p.out)
......
...@@ -63,7 +63,8 @@ modClDistPlot = function(input, output, session, in.data, in.cols = NULL, in.fna ...@@ -63,7 +63,8 @@ modClDistPlot = function(input, output, session, in.data, in.cols = NULL, in.fna
in.font.strip = PLOTFONTFACETSTRIP, in.font.strip = PLOTFONTFACETSTRIP,
in.font.legend = PLOTFONTLEGEND) + in.font.legend = PLOTFONTLEGEND) +
theme( theme(
axis.text.x = LOCrotatedAxisElementText(as.numeric(input$rBAxisLabelsRotate), size = PLOTFONTAXISTEXT) axis.text.x = LOCrotatedAxisElementText(as.numeric(input$rBAxisLabelsRotate),
size = PLOTFONTAXISTEXT)
) )
return(p.out) return(p.out)
......
...@@ -51,8 +51,9 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") { ...@@ -51,8 +51,9 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
ticks = TRUE, ticks = TRUE,
round = TRUE round = TRUE
), ),
checkboxInput(ns('chBPlotHierClAss'), 'Manually assign cluster colours'), # These two lines are to manually assign colours to clusters; it doesn't really work well, so skip
uiOutput(ns('uiPlotHierClAss')), #checkboxInput(ns('chBPlotHierClAss'), 'Manually assign cluster colours'),
#uiOutput(ns('uiPlotHierClAss')),
checkboxInput(ns('chBPlotHierClSel'), 'Manually select clusters to display'), checkboxInput(ns('chBPlotHierClSel'), 'Manually select clusters to display'),
uiOutput(ns('uiPlotHierClSel')), uiOutput(ns('uiPlotHierClSel')),
downloadButton(ns('downCellCl'), 'Download CSV with cell IDs and cluster no.') downloadButton(ns('downCellCl'), 'Download CSV with cell IDs and cluster no.')
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment