From 9289acbfe941d60650b51d78663c305a6ee9a875 Mon Sep 17 00:00:00 2001
From: gnoblet <gnoblet@zaclys.net>
Date: Sun, 18 Sep 2022 20:31:22 -0400
Subject: [PATCH] Added `cols_impact()`

---
 R/cols_impact.R | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 R/cols_impact.R

diff --git a/R/cols_impact.R b/R/cols_impact.R
new file mode 100644
index 0000000..c74bdaf
--- /dev/null
+++ b/R/cols_impact.R
@@ -0,0 +1,30 @@
+#' @title Function to extract IMPACT colors as hex codes
+#'
+#' @param ... Character names of reach colors. If NULL returns all colors
+#' @param unnamed Should the output vector be unnamed? Default to `TRUE`
+#'
+#' @return An hex code or hex codes named or unnamed
+#'
+#' @details This function needs to be modified to add colors
+#'
+#' @export
+cols_impact <- function(..., unnamed = TRUE) {
+  cols <- c(...)
+
+  colors_impact <- c(white     = "#FFFFFF",
+                    black     = "#000000",
+                    main_blue = "#315975",
+                    main_gray = "#58585A")
+
+  if (is.null(cols)) {
+    cols_to_return <- colors_impact
+  } else {
+    cols_to_return <- colors_impact[cols]
+  }
+
+  if(unnamed){
+    cols_to_return <- unname(cols_to_return)
+  }
+
+  return(cols_to_return)
+}