Commit 028696c2 authored by dmattek's avatar dmattek

Changing to ggplotTheme from tca package

parent 8c9a3de5
......@@ -296,7 +296,7 @@ myGgplotTraj = function(dt.arg, # data table
xlab(paste0(xlab.arg, "\n")) +
ylab(paste0("\n", ylab.arg)) +
ggtitle(plotlab.arg) +
myGgplotTheme +
ggplotTheme() +
theme(legend.position = "top")
return(p.tmp)
......@@ -387,7 +387,7 @@ myGgplotScat = function(dt.arg,
p.tmp = p.tmp +
myGgplotTheme +
ggplotTheme() +
theme(legend.position = "none")
# Marginal distributions don;t work with plotly...
......@@ -397,27 +397,6 @@ myGgplotScat = function(dt.arg,
return(p.tmp)
}
myGgplotTheme =
theme_bw(base_size = 12, base_family = "Helvetica") +
theme(
panel.spacing = unit(1, "lines"),
panel.grid.minor = element_blank(),
panel.grid.major = element_blank(),
panel.border = element_blank(),
axis.line = element_line(color = "black", size = 0.25),
axis.text.x = element_text(size = 12),
axis.text.y = element_text(size = 12),
axis.title = element_text(size = 14),
strip.text = element_text(size = 14, face = "bold"),
strip.background = element_blank(),
legend.key = element_blank(),
legend.text = element_text(size = 12),
legend.key.height = unit(1, "lines"),
legend.key.width = unit(2, "lines"),
legend.position = "right"
)
myPlotHeatmap <- function(data.arg,
dend.arg,
......
......@@ -236,7 +236,7 @@ modBoxPlot = function(input, output, session,
scale_fill_discrete(name = '') +
xlab('') +
ylab('') +
myGgplotTheme +
ggplotTheme() +
theme(legend.position = input$selPlotBoxLegendPos)
if (input$chBxAxisLabelsRotate)
......
......@@ -49,7 +49,7 @@ modClDistPlot = function(input, output, session, in.data, in.cols = NULL, in.fna
scale_y_continuous(labels = percent) +
ylab("percentage of cells\n") +
xlab("") +
myGgplotTheme
ggplotTheme()
return(p.out)
......
......@@ -186,7 +186,9 @@ modTrajRibbonPlot = function(input, output, session,
col.arg = loc.facet.col,
group.arg = in.facet,
xlab.arg = 'Time (min)',
ylab.arg = '', legendpos.arg = input$rBlegendPos)
ylab.arg = '') +
ggplotTheme() +
theme(legend.position = input$rBlegendPos)
return(p.out)
}
......
......@@ -658,7 +658,7 @@ shinyServer(function(input, output, session) {
}
## Normalization
# F-n myNorm adds additional column with .norm suffix
# F-n tca::normTraj adds additional column with .norm suffix
if (input$chBnorm) {
loc.out = tca::normTraj(
in.dt = loc.out,
......
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