commit 161a86ac9f1310efb9105be3224fcd570cf92cb9
author Marc Kupietz <kupietz@ids-mannheim.de> Tue Feb 02 14:40:23 2021 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Tue Feb 02 14:56:01 2021 +0100
tree d6d18379b1ef2200c32f5d4573e493df7208463a
parent e8d0a8efec1cc08e9471f364c5249b3d72cdf9b9

Provide palettes as functions

Change-Id: Idc93e5c4538233ceaf248530e98a20cdcac38764

R/idsThemeR.R

diff --git a/R/idsThemeR.R b/R/idsThemeR.R
index bfab33a..6693c96 100644
--- a/R/idsThemeR.R
+++ b/R/idsThemeR.R
@@ -1,6 +1,14 @@
 idsBaseFontFamily <- 'Fira Sans Condensed'
 
-idsPalette <- c(
+
+#' Title
+#'
+#' @return
+#' @export
+#'
+#' @examples
+idsPalette <- function() {
+  c(
   '#F18700',
   "#1E2662",
   "#6A7702",
@@ -22,8 +30,16 @@
   "#DF9599",
   "#79B8DB"
 )
+}
 
-idsPaletteD3 <- c(
+#' Title
+#'
+#' @return
+#' @export
+#'
+#' @examples
+idsPaletteD3 <- function() {
+  c(
   '#EB7C31',
   "#1F77B4",
   "#2CA02C",
@@ -45,10 +61,19 @@
   "#DBDB8D",
   "#9EDAE5"
 )
+}
 
-idsPaletteGreyscale <- c(
+#' Title
+#'
+#' @return
+#' @export
+#'
+#' @examples
+idsPaletteGreyscale <- function() {
+  c(
   "#000000", "#B2B0AD", "#737373", "#D8D7D6", "#B2B0AD", "#8C8984"
-)
+  )
+}
 
 backgroundColorDark <- "#2a2a2a"
 textColorDark <- "#E0E0E3"
@@ -78,7 +103,7 @@
 #' \url{https://github.com/d3/d3}
 #'
 ids_pal <- function(palette="default") {
-  values <- if(palette == "d3" || palette == "D3") idsPaletteD3 else idsPalette
+  values <- if(palette == "d3" || palette == "D3") idsPaletteD3() else idsPalette()
   f <- scales::manual_pal(values)
   attr(f, "max_n") <- length(values)
   f