| idsBaseFontFamily <- 'Fira Sans Condensed' |
| |
| idsPalette <- c( |
| '#F18700', |
| "#1E2662", |
| "#6A7702", |
| "#C10A25", |
| "#009EE3", |
| "#FAF3DE", |
| "#A7C2D2", |
| "#E2E8A4", |
| "#CFBCBD", |
| "#BCE3FA", |
| "#5C401C", |
| "#000000", |
| "#354C32", |
| "#5C131C", |
| "#273582", |
| "#FFE3BF", |
| "#8994E1", |
| "#A3B29E", |
| "#DF9599", |
| "#79B8DB" |
| ) |
| |
| idsPaletteD3 <- c( |
| '#EB7C31', |
| "#1F77B4", |
| "#2CA02C", |
| "#D62728", |
| "#9467BD", |
| "#8C564B", |
| "#E377C2", |
| "#7F7F7F", |
| "#BCBD22", |
| "#17BECF", |
| "#AEC7E8", |
| "#FFBB78", |
| "#98DF8A", |
| "#FF9896", |
| "#C5B0D5", |
| "#C49C94", |
| "#F7B6D2", |
| "#C7C7C7", |
| "#DBDB8D", |
| "#9EDAE5" |
| ) |
| |
| idsPaletteGreyscale <- c( |
| "#000000", "#B2B0AD", "#737373", "#D8D7D6", "#B2B0AD", "#8C8984" |
| ) |
| |
| backgroundColorDark <- "#2a2a2a" |
| textColorDark <- "#E0E0E3" |
| lowContrastColorDark <- "#707073" |
| highContrastColorDark <- "#F0F0F3" |
| mediumContrastColorDark <- "#808083" |
| |
| backgroundColor <- "#ffffff" |
| textColor <- "#383838" |
| highContrastColor <- "#101013" |
| lowContrastColor <- "#E0E0E3" |
| mediumContrastColor <- "#404043" |
| tooltipBackgroundColor <- "#ffffffe0" |
| boxplotFillColor <- "#505053" |
| candlestickColor <- "black" |
| errorbarColor <- "black" |
| |
| #' IDS color palette |
| #' |
| #' @param palette \code{c("D3", "default")} - use default or (adapted) d3 palette |
| #' |
| #' @importFrom scales manual_pal |
| #' @export |
| #' |
| #' @references |
| #' |
| #' \url{https://github.com/d3/d3} |
| #' |
| ids_pal <- function(palette="default") { |
| values <- if(palette == "d3" || palette == "D3") idsPaletteD3 else idsPalette |
| f <- scales::manual_pal(values) |
| attr(f, "max_n") <- length(values) |
| f |
| } |