R/colour_plot.R

In YTLogos/ggthemr: Themes for ggplot2

#' @title Plot colours
#' @description Display a chart of colours from a vector of colours or ggthemr object.
#' @param x Character vector of colours or ggthemr palette object.
#' @export
#' @author Ciaran Tobin
#' @examples  
#' colour_plot(c('#14B294', 'coral'))
#' colour_plot(ggthemr('sea'))
#' @export
colour_plot <- function (x) 
  UseMethod('colour_plot', x)


#' @rdname colour_plot
#' @export
colour_plot.character <- function (x)
  plot_colours(x)


#' @rdname colour_plot
#' @export
colour_plot.ggthemr <- function (x)
  plot_colours(unclass(x$palette$swatch), x$palette$background)


#' @rdname colour_plot
#' @export
colour_plot.ggthemr_palette <- function (x)
  plot_colours(unclass(x$swatch), x$background)


#' @rdname colour_plot
#' @export
colour_plot.ggthemr_swatch <- function (x)
  plot_colours(unclass(x))