Commit caf6f533 authored by dmattek's avatar dmattek

Added:

- user-adjustable display plot width
parent a83ec463
......@@ -127,6 +127,13 @@ clustBayUI <- function(id, label = "Sparse Hierarchical CLustering") {
value = 1000,
min = 100,
step = 100
),
numericInput(
ns('inPlotWidth'),
'Display plot width',
value = 800,
min = 100,
step = 100
)
)
),
......@@ -368,9 +375,9 @@ clustBay <- function(input, output, session, dataMod) {
ns <- session$ns
if (input$inPlotBayInteractive)
d3heatmapOutput(ns("plotBayInt"), height = paste0(input$inPlotHeight, "px"))
d3heatmapOutput(ns("plotBayInt"), height = paste0(input$inPlotHeight, "px"), width = paste0(input$inPlotWidth, "px"))
else {
plotOutput(ns('outPlotBayHm'), height = paste0(input$inPlotHeight, "px"))
plotOutput(ns('outPlotBayHm'), height = paste0(input$inPlotHeight, "px"), width = paste0(input$inPlotWidth, "px"))
}
})
......
......@@ -172,6 +172,13 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
value = 1000,
min = 100,
step = 100
),
numericInput(
ns('inPlotWidth'),
'Display plot width',
value = 800,
min = 100,
step = 100
)
)
),
......@@ -336,9 +343,9 @@ clustHier <- function(input, output, session, dataMod) {
output$plotInt_ui <- renderUI({
ns <- session$ns
if (input$plotInt)
tagList(d3heatmapOutput(ns("outPlotInt"), height = paste0(input$inPlotHeight, "px")))
tagList(d3heatmapOutput(ns("outPlotInt"), height = paste0(input$inPlotHeight, "px"), width = paste0(input$inPlotWidth, "px")))
else
tagList(plotOutput(ns('outPlotHier'), height = paste0(input$inPlotHeight, "px")))
tagList(plotOutput(ns('outPlotHier'), height = paste0(input$inPlotHeight, "px"), width = paste0(input$inPlotWidth, "px")))
})
......
......@@ -184,6 +184,13 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
value = 1000,
min = 100,
step = 100
),
numericInput(
ns('inPlotWidth'),
'Display plot width',
value = 800,
min = 100,
step = 100
)
)
),
......@@ -442,9 +449,9 @@ clustHierSpar <- function(input, output, session, dataMod) {
ns <- session$ns
if (input$inPlotHierSparInteractive)
d3heatmapOutput(ns("plotHierSparInt"), height = paste0(input$inPlotHeight, "px"))
d3heatmapOutput(ns("plotHierSparInt"), height = paste0(input$inPlotHeight, "px"), width = paste0(input$inPlotWidth, "px"))
else
plotOutput(ns('outPlotHierSpar'), height = paste0(input$inPlotHeight, "px"))
plotOutput(ns('outPlotHierSpar'), height = paste0(input$inPlotHeight, "px"), width = paste0(input$inPlotWidth, "px"))
})
}
\ No newline at end of file
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