R/theme_gg_court.R

In mistermichaelll/statcrewRC: RC Stat Crew Package

#' Semi-void theme for court image creation.
#'
#' \code{theme_gg_court} is an additional argument to a \code{ggplot2} pipe.
#' It removes unnecessary parts of the graph to make a clean chart. Used in conjunction
#' with the halfcourt image found in the GitHub repository, we can make shot charts with it.
#'
#'
#' @keywords theme_gg_court
#' @export
#'
theme_gg_court <- function(){
    theme_classic(base_size = 12) %+replace%
        theme(axis.title.x=element_blank(),
              axis.text.x=element_blank(),
              axis.ticks.x=element_blank(),
              axis.title.y=element_blank(),
              axis.text.y=element_blank(),
              axis.ticks.y=element_blank(),
              line = element_blank())
}