R/themes.R

In MarijnJABoer/HeavySetR: A Heavyset Workout analysis package for R

#' HeavySet ggplot theme dark
#'
#' This function extends the ggplot2 minimal theme to a HeavySet styled theme.
#'
#' @importFrom ggplot2 theme_minimal theme %+replace% element_blank
#'
#' @export
#' @examples
#' df <- simData(25, 1)
#' plotTime(df) + scale_fill_HS()
themeHS <- function() {
  # TODO(MJABOER): Create theme; fonts, fontsize, grid, background, text color, legend position
  # TODO(MJABOER): Fix white letters when black color is used to fill graphs.
  theme_minimal() %+replace% theme(
    legend.position = "top",
    legend.title = ggplot2::element_blank(),
    plot.caption = element_text(hjust = 0)
  )
}