R/theme_horrible_test.R

In joedecesaro/burritootter:

#' Horrendous test theme
#'
#' Description: We made this theme as an example of how we can make custom themes to save for future use.
#'
#' @return
#' @export
#'
#' @examples
theme_horrible_test <- function() {theme(title = element_text(size = 16, color = "purple"),
      plot.background = element_rect(fill = "black"),
      panel.background = element_rect(fill = "gray20"),
      axis.text = element_text(color = "yellow"),
      panel.grid.major = element_line(color = "blue"),
      panel.grid.minor = element_line(color = "cyan"))
}