R/colours.r

In AustralianAntarcticDivision/aceecostats: Ecosystem status and trends

#' Habitat region colours
#'
#' @return tibble with name and col-our
#' @export
#' @importFrom grDevices rgb
#' @importFrom stats setNames
#' @examples
#' aes_zone_cols()
aes_zone_cols <- function() {
  tibble::tibble(name = c("Atlantic", "Indian", "WestPacific", "EastPacific"), 
                 col = rgb(c(124, 0, 248, 199), c(174, 191, 118, 124), c(0, 196, 109, 255), maxColorValue = 255))
}


aes_zone_hue <- function() {
  setNames(rgb(c(124, 0, 248, 199), c(174, 191, 118, 124), c(0, 196, 109, 255), maxColorValue = 255), 
           c("Atlantic", "Indian", "WestPacific", "EastPacific"))
}

aes_zone_alpha <- function(x) {
 setNames(c(1, 0.6, 0.3), c("Shelf", "Polar", "Temperate"))
}