re-factor tint and shade functions

katilingban · Mar 12, 2024 · 46a616d · 46a616d
1 parent 65241f4
commit 46a616d
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 12 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -153,17 +153,13 @@ tint_colour <- function(hex, p) {
 #' @rdname tint_colour
 #' @export
 #'
-tint_colours_ <- function(hex, p, label = FALSE) {
+tint_colours_ <- function(hex, p) {
   pal <- Map(
     f = tint_colour,
     hex = rep(list(hex), length(p)),
     p = as.list(p)
   )
 
-  if (label) {
-    names(pal) <- paste0(p * 100, "%")
-  }
-
   unlist(pal)
 }
 
@@ -219,17 +215,13 @@ shade_colour <- function(hex, p) {
 #' @rdname shade_colour
 #' @export
 #'
-shade_colours_ <- function(hex, p, label = FALSE) {
+shade_colours_ <- function(hex, p) {
   pal <- Map(
     f = shade_colour,
     hex = rep(list(hex), length(p)),
     p = as.list(p)
   )
 
-  if (label) {
-    names(pal) <- paste0(p * 100, "%")
-  }
-
   unlist(pal)
 }
 

diff --git a/man/shade_colour.Rd b/man/shade_colour.Rd
diff --git a/man/tint_colour.Rd b/man/tint_colour.Rd