Added option to set the height of displayed heatmap.

modules/tabBayClust.R

@@ -79,7 +79,7 @@ clustBayUI <- function(id, label = "Sparse Hierarchical CLustering") {
     
     fluidRow(
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotBayHmMarginX'),
           'Margin below x-axis',
@@ -89,7 +89,7 @@ clustBayUI <- function(id, label = "Sparse Hierarchical CLustering") {
         )
       ),
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotBayHmMarginY'),
           'Margin right of y-axis',
@@ -99,7 +99,7 @@ clustBayUI <- function(id, label = "Sparse Hierarchical CLustering") {
         )
       ),
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotBayHmFontX'),
           'Font size row labels',
@@ -110,7 +110,7 @@ clustBayUI <- function(id, label = "Sparse Hierarchical CLustering") {
         )
       ),
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotBayHmFontY'),
           'Font size column labels',
@@ -119,6 +119,15 @@ clustBayUI <- function(id, label = "Sparse Hierarchical CLustering") {
           width = 100,
           step = 0.1
         )
+      ),
+      column(2,
+             numericInput(
+               ns('inPlotHeight'),
+               'Display plot height',
+               value = 1000,
+               min = 100,
+               step = 100
+             )
       )
     ),
     br(),
@@ -290,14 +299,11 @@ clustBay <- function(input, output, session, dataMod) {
     )
   }
   
+
   
   output$outPlotBayHm <- renderPlot({
     plotBayHm()
-  }, height = 800)
-  
-  output$outPlotBayImp <- renderPlot({
-    plotBayImp()
-  }, height = 800)
+  })
   
   output$plotBayInt <- renderD3heatmap({
     cat(file = stderr(), 'plotBayInt \n')
@@ -362,9 +368,9 @@ clustBay <- function(input, output, session, dataMod) {
     ns <- session$ns
     
     if (input$inPlotBayInteractive)
-      d3heatmapOutput(ns("plotBayInt"))
+      d3heatmapOutput(ns("plotBayInt"), height = paste0(input$inPlotHeight, "px"))
     else {
-      plotOutput(ns('outPlotBayHm'))
+      plotOutput(ns('outPlotBayHm'), height = paste0(input$inPlotHeight, "px"))
     }
   })
   

modules/tabHier.R

@@ -127,7 +127,7 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
     
     br(),
     fluidRow(
-      column(3,
+      column(2,
              numericInput(
                ns('inMarginX'),
                'Margin below x-axis',
@@ -136,7 +136,7 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
                width = 100
              )
       ),
-      column(3,
+      column(2,
              numericInput(
                ns('inMarginY'),
                'Margin right of y-axis',
@@ -145,7 +145,7 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
                width = 100
              )
       ),
-      column(3,
+      column(2,
              numericInput(
                ns('inFontX'),
                'Font size row labels',
@@ -155,7 +155,7 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
                step = 0.1
              )
       ),
-      column(3,
+      column(2,
         numericInput(
           ns('inFontY'),
           'Font size column labels',
@@ -164,6 +164,15 @@ clustHierUI <- function(id, label = "Hierarchical CLustering") {
           width = 100,
           step = 0.1
         )
+      ),
+      column(2,
+             numericInput(
+               ns('inPlotHeight'),
+               'Display plot height',
+               value = 1000,
+               min = 100,
+               step = 100
+             )
       )
     ),
     br(),
@@ -266,7 +275,7 @@ clustHier <- function(input, output, session, dataMod) {
   # Hierarchical - display plot
   output$outPlotHier <- renderPlot({
     plotHier()
-  }, height = 800)
+  })
   
   # Hierarchical - download pdf
   callModule(downPlot, "downPlotHier",       paste0('clust_hierch_',
@@ -327,9 +336,9 @@ clustHier <- function(input, output, session, dataMod) {
   output$plotInt_ui <- renderUI({
     ns <- session$ns
     if (input$plotInt)
-      tagList(d3heatmapOutput(ns("outPlotInt")))
+      tagList(d3heatmapOutput(ns("outPlotInt"), height = paste0(input$inPlotHeight, "px")))
     else
-      tagList(plotOutput(ns('outPlotHier')))
+      tagList(plotOutput(ns('outPlotHier'), height = paste0(input$inPlotHeight, "px")))
   })
   
  

modules/tabHierSparse.R

@@ -136,7 +136,7 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
     
     fluidRow(
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotHierSparMarginX'),
           'Margin below x-axis',
@@ -146,7 +146,7 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
         )
       ),
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotHierSparMarginY'),
           'Margin right of y-axis',
@@ -156,7 +156,7 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
         )
       ),
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotHierSparFontX'),
           'Font size row labels',
@@ -167,7 +167,7 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
         )
       ),
       column(
-        3,
+        2,
         numericInput(
           ns('inPlotHierSparFontY'),
           'Font size column labels',
@@ -176,6 +176,15 @@ clustHierSparUI <- function(id, label = "Sparse Hierarchical CLustering") {
           width = 100,
           step = 0.1
         )
+      ),
+      column(2,
+             numericInput(
+               ns('inPlotHeight'),
+               'Display plot height',
+               value = 1000,
+               min = 100,
+               step = 100
+             )
       )
     ),
     br(),
@@ -355,7 +364,7 @@ clustHierSpar <- function(input, output, session, dataMod) {
   # Sparse Hierarchical - display plot
   output$outPlotHierSpar <- renderPlot({
     plotHierSpar()
-  }, height = 800)
+  })
   
   # Sparse Hierarchical - download pdf
   callModule(downPlot, "downPlotHierSpar", paste0('clust_hierchSparse_',  
@@ -433,9 +442,9 @@ clustHierSpar <- function(input, output, session, dataMod) {
     ns <- session$ns
     
     if (input$inPlotHierSparInteractive)
-      d3heatmapOutput(ns("plotHierSparInt"))
+      d3heatmapOutput(ns("plotHierSparInt"), height = paste0(input$inPlotHeight, "px"))
     else
-      plotOutput(ns('outPlotHierSpar'))
+      plotOutput(ns('outPlotHierSpar'), height = paste0(input$inPlotHeight, "px"))
   })
   
 }
\ No newline at end of file