R/scale_color_JS.R

In JohanSalomonssonSV/JSthemes:

#' JS scale color, which is built on Ricardo Bion's code for ggtech
#' @importFrom ggplot2 scale_color_manual
#' @export
#' @name scale_color_JS
#' @title JS scale color for ggplot2
#' @param theme theme JS
#' @param tech_key list of colors
#' scale_color_JS(theme="JS")


scale_color_JS <- function(theme="JS", tech_key = list(
  JS=c("#BDB76B","#556B2F","#F4A460","#FFFACD","#7FFFD4"),
  Bright=c("#FF0000","#00FF00","#FFFF00","#00FFFF","#FF00FF","#FF00FF")
)) {

  ggplot2::scale_color_manual(values=tech_key[[theme]])

}