Merge pull request #788 from pharmaR/jt-fix_get_text_color

Fix `get_text_color()`
pharmaR · Jun 5, 2024 · a154676 · a154676
2 parents fdb0850 + 3fa5bad
commit a154676
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 5 deletions.
diff --git a/R/mod_decision_automation_utils.R b/R/mod_decision_automation_utils.R
@@ -91,10 +91,14 @@ get_text_color <- function(hex) {
   lum <-
     hex %>%
     stringr::str_remove("#") %>%
-    substring(0:2*2+1,1:3*2) %>%
-    strtoi(16) %>%
-    `*`(c(299, 587, 114)) %>%
-    sum() %>%
+    purrr::map_dbl(
+      ~ {
+        .x %>%
+          substring(0:2*2+1,1:3*2) %>%
+          strtoi(16) %>%
+          `*`(c(299, 587, 114)) %>%
+          sum() 
+      }) %>%
     `/`(1000)
 
   ifelse(lum <= 130, "#ffffff", "#000000")

diff --git a/manifest.json b/manifest.json
@@ -6502,7 +6502,7 @@
       "checksum": "91d23477f73284b74e4f452911214986"
     },
     "R/mod_decision_automation_utils.R": {
-      "checksum": "294bb444a83250e55fa6dec75c1491e6"
+      "checksum": "c8b8f4676b824effbafddcd136de7998"
     },
     "R/mod_decision_automation.R": {
       "checksum": "e22e1f4c044bc9f11c46a5fcdba33063"