Merge branch 'Improvements' into 'master'

Improves font sizes on chart axes and legend. Issue ~/issues/2

See merge request biohpc/astrocyte_example_chipseq!5

vizapp/server.R

@@ -2,6 +2,7 @@
 
 library(shiny)
 library(shinyFiles)
+library(ggplot2)
 
 library(ChIPseeker)
 library(TxDb.Hsapiens.UCSC.hg19.knownGene)
@@ -29,17 +30,24 @@ shinyServer(function(input, output, session) {
       
       txdb <- TxDb.Hsapiens.UCSC.hg19.knownGene
       
-      
+      plotFontSize=14;
+      plotTheme = theme(
+        axis.text = element_text(size=plotFontSize),
+        axis.title = element_text(size=plotFontSize,face="bold"),
+        legend.text = element_text(size=plotFontSize),
+        legend.title = element_text(size=plotFontSize, face="bold"))
+
+
       peakAnnoList <- lapply(filenames, annotatePeak, TxDb=txdb,
                              tssRegion=c(-3000, 3000), verbose=FALSE)
       
       output$plot1 <- renderPlot({
         
-        plotAnnoBar(peakAnnoList)
+        plotAnnoBar(peakAnnoList)+plotTheme
       })
       output$plot2 <- renderPlot({
         
-        plotDistToTSS(peakAnnoList)
+        plotDistToTSS(peakAnnoList)+plotTheme
       })
   })
 })