Commit 4132c580 authored by dmattek's avatar dmattek

Added: option to turn off grid lines in heatmaps

parent caf6f533
......@@ -113,15 +113,10 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
step = .1,
ticks = TRUE
),
sliderInput(
ns('inGridColor'),
'Shade of grey for grid lines (0 - black, 1 - white)',
min = 0,
max = 1,
value = 0.6,
step = .1,
ticks = TRUE
)
checkboxInput(ns('inDispGrid'),
'Display grid lines',
TRUE),
uiOutput(ns('inGridColorUI'))
)
),
......@@ -265,9 +260,9 @@ clustHier <- function(input, output, session, dataMod) {
density.info = "density",
RowSideColors = col_labels,
colRow = col_labels,
sepcolor = grey(input$inGridColor),
colsep = 1:ncol(in.dm),
rowsep = 1:nrow(in.dm),
sepcolor = if (input$inDispGrid) grey(input$inGridColor) else NULL,
colsep = if (input$inDispGrid) 1:ncol(in.dm) else NULL,
rowsep = if (input$inDispGrid) 1:nrow(in.dm) else NULL,
cexRow = input$inFontX,
cexCol = input$inFontY,
main = paste(
......@@ -338,7 +333,22 @@ clustHier <- function(input, output, session, dataMod) {
show_grid = TRUE
)
})
output$inGridColorUI <- renderUI({
ns <- session$ns
if(input$inDispGrid) {
sliderInput(
ns('inGridColor'),
'Shade of grey for grid lines (0 - black, 1 - white)',
min = 0,
max = 1,
value = 0.6,
step = .1,
ticks = TRUE)
}
})
# Hierarchical - choose to display regular heatmap.2 or d3heatmap (interactive)
output$plotInt_ui <- renderUI({
ns <- session$ns
......
......@@ -107,15 +107,11 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
step = .1,
ticks = TRUE
),
sliderInput(
ns('inPlotHierSparGridColor'),
'Shade of grey for grid lines (0 - black, 1 - white)',
min = 0,
max = 1,
value = 0.6,
step = .1,
ticks = TRUE
)
checkboxInput(ns('inDispGrid'),
'Display grid lines',
TRUE),
uiOutput(ns('inGridColorUI'))
)
),
......@@ -352,9 +348,9 @@ clustHierSpar <- function(input, output, session, dataMod) {
colRow = col_labels,
colCol = loc.colcol,
labCol = loc.colnames,
sepcolor = grey(input$inPlotHierSparGridColor),
colsep = 1:ncol(loc.dm),
rowsep = 1:nrow(loc.dm),
sepcolor = if (input$inDispGrid) grey(input$inPlotHierSparGridColor) else NULL,
colsep = if (input$inDispGrid) 1:ncol(loc.dm) else NULL,
rowsep = if (input$inDispGrid) 1:nrow(loc.dm) else NULL,
cexRow = input$inPlotHierSparFontX,
cexCol = input$inPlotHierSparFontY,
main = paste(
......@@ -443,6 +439,22 @@ clustHierSpar <- function(input, output, session, dataMod) {
labCol = loc.colnames
)
})
output$inGridColorUI <- renderUI({
ns <- session$ns
if(input$inDispGrid) {
sliderInput(
ns('inPlotHierSparGridColor'),
'Shade of grey for grid lines (0 - black, 1 - white)',
min = 0,
max = 1,
value = 0.6,
step = .1,
ticks = TRUE)
}
})
# Sparse Hierarchical - choose to display regulat heatmap.2 or d3heatmap (interactive)
output$plotHierSparInt_ui <- renderUI({
......
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