Set font sizes in Gene Set Heatmap

Author: Baohong Zhang

geneset.R

@@ -239,7 +239,17 @@ genesetheatmap_out <- reactive({withProgress(message = 'Making heatmap...', valu
 	subdatwide=subdatwide[row_SD!=0, ]
 	#p <- pheatmap::pheatmap(as.matrix(subdatwide),	scale = "row", color = colorpanel (64, low = "blue",mid = "white", high = "red"),filename=NA)
 	scaled_data=t(scale(t(subdatwide))); scaled_data=pmin(scaled_data, 3); scaled_data=pmax(scaled_data, -3)
-	p <- ComplexHeatmap::Heatmap(scaled_data, column_title = ID, cluster_columns =F, heatmap_legend_param = list(title = "Z Score", color_bar = "continuous") )
+	p <- ComplexHeatmap::Heatmap(scaled_data,
+      column_names_gp = gpar(fontsize = as.numeric(as.character(input$hxfontsize_gsh))),
+      row_names_gp = gpar(fontsize = as.numeric(as.character(input$hyfontsize_gsh))),
+      column_title_gp = gpar(fontsize = as.numeric(as.character(input$htfontsize_gsh))),
+      heatmap_legend_param = list(
+        title = "Z Score",
+        color_bar = "continuous",
+        title_gp = gpar(fontsize = as.numeric(as.character(input$hlfontsize_gsh))),
+        labels_gp = gpar(fontsize = as.numeric(as.character(input$hlfontsize_gsh))-1)
+      ),
+      column_title = ID, cluster_columns =F)
 	return(p)
 })
 })

ui.R

@@ -377,7 +377,11 @@ tabPanel("Gene Set Enrichment",
 				  selectInput("geneset_test5", label="5th Comparison", choices=NULL))
 				),				
 				conditionalPanel("input.geneset_tabset=='Gene Set Heatmap'",
-				radioButtons("gs_heatmap_label",label="Gene Label",inline = TRUE, choices=c("UniqueID", "Gene.Name"), selected="Gene.Name")),
+                  column(width=6,sliderInput("hxfontsize_gsh", "Column Font Size:", min = 2, max = 24, step = 1, value = 12)),
+                  column(width=6,sliderInput("hyfontsize_gsh", "Row Font Size:", min = 2, max = 24, step = 1, value = 12)),
+                  column(width=6,sliderInput("htfontsize_gsh", "Title Font Size:", min = 10, max = 32, step = 1, value = 14)),
+                  column(width=6,sliderInput("hlfontsize_gsh", "Legend Font Size:", min = 2, max = 20, step = 1, value = 10)),
+				  radioButtons("gs_heatmap_label",label="Gene Label",inline = TRUE, choices=c("UniqueID", "Gene.Name"), selected="Gene.Name")),
 				conditionalPanel("input.geneset_tabset=='Gene Set Enrichment'",
 					radioButtons("MSigDB", label= "MSigDB Collections",
 						choices= c("KEGG Pathway" = "KEGG",
@@ -403,7 +407,7 @@ tabPanel("Gene Set Enrichment",
 				tabsetPanel(id="geneset_tabset",
 					tabPanel(title="Gene Set Enrichment", DT::dataTableOutput("MSigDB")),
 					tabPanel(title="Gene Expression",textInput('x1', 'Row ID'),  DT::dataTableOutput("Expression")),
-					tabPanel(title="Gene Set Heat Map", textInput('x2', 'Row ID'), actionButton("genesetheatmap", "Save to output"), plotOutput('SetHeatMap', height="auto", width = 900)),
+					tabPanel(title="Gene Set Heatmap", textInput('x2', 'Row ID'), actionButton("genesetheatmap", "Save to output"), plotOutput('SetHeatMap', height="auto", width = 900)),
 					tabPanel(title="KEGG Pathway View", textInput('x3', 'Row ID'), actionButton("keggSave", "Save to output"),plotOutput('keggView')),
 					tabPanel(title="Help", htmlOutput('help_geneset'))
 			)