Commit 460ff3cf authored by Peng Lian's avatar Peng Lian
Browse files

Merge branch 'Improvements' into 'master'

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

See merge request !5
parents 3543df7d c7dacf7c
Pipeline #11699 failed with stages
in 2 minutes and 34 seconds
......@@ -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
})
})
})
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