R/zzz.R

In jtmccr1/HIVEr: Analysis of transmission and intrahost iSNV data taken as part of the HIVE cohort

.onAttach <- function(libname,pkgname) {
  my_palette <- wesanderson::wes_palette("Zissou1")
  my_theme <- ggplot2::theme_classic()+ ggplot2::theme(text=ggplot2::element_text(family="Arial",size = 18))
  ggplot2::theme_set(my_theme)

  assign("scale_colour_discrete", function(..., values = my_palette) ggplot2::scale_colour_manual(..., values = values), globalenv())
  assign("scale_fill_discrete", function(..., values = my_palette) ggplot2::scale_fill_manual(..., values = values), globalenv())
}