Presentation mode

[seabbs]

Issue

Figures are often presented via slides to stakeholders. Readability is very important in these contexts. It may make sense to increase text size as well as potentially other aspects of figures.

Suggested solution

Add a presentation = FALSE/TRUE argument to all plotting functions that tweaks plot defaults to aid readability. An alternative solution would be the addition of a new function (something like for_presentation) to update plots for use in presentations.

[mariabnd]

Would adjusting the aspect ratio and increasing the font size be enough?

If so something like

library(ggplot2)
library(getTBinR)

plot <- getTBinR::plot_tb_burden_summary(countries = "United Kingdom", 
                                         compare_all_regions = FALSE, 
                                         compare_to_region = TRUE)

for_presentation <- function(plot, aspect_ratio = 0.5, font_increase = 1.5, ...){
  plot <- plot + theme(aspect.ratio = aspect_ratio)
  plot <- plot + theme(text = element_text(size = plot$theme$text$size * font_increase))
  
  return(plot)
}

plot # Original
presentation(plot) # After adjustments

should work (or the changes to theme could be incorporated in the plot functions cf. the suggested TRUE/FALSE argument)

[seabbs]

This is a nice solution. I like the separate wrapper function idea.

FYI the CRAN update including your changes is ready but has been delayed by the COVID outbreak (my new job is outbreak forecasting and it turns out that makes this a busy time).

Hopefully will be able to push forward soon on this.

[mariabnd]

No worries; everything is COVID-19 atm. I'll add some documentation and submit a pull request.

And congrats on the new job!

[mariabnd]

Have submitted #97