R/print_palette.R

In Rdune: 'Creates Color Palettes Inspired by Dune'

#' Function for printing palette
#' @param x Name of palette
#' @param ... Other arguments
#' @importFrom graphics rect par image text
#' @importFrom grDevices rgb
#' @return A vector of colors.
#' @examples
#' pal <- dune_palette("atreides")
#' print.palette(pal)
#' @export

print.palette <- function(x, ...) {
  n <- length(x)
  old <- graphics::par(mar = c(0., 0.2, 0.2, 0.2))
  on.exit(graphics::par(old))

  graphics::image(1:n, 1, as.matrix(1:n),
    col = x,
    ylab = "", xaxt = "n", yaxt = "n", bty = "n"
  )

  graphics::rect(0, 0.9, n + 1, 1.1,
    col = grDevices::rgb(0.8, 0.8, 0.8, 0.5),
    border = NA
  )

  graphics::text((n + 1) / 2, 1,
    labels = attr(x, "name"),
    cex = 1,
    family = "sans"
  )
}