remove munsell as dependency (#467)

DESCRIPTION

@@ -21,7 +21,6 @@ Imports:
     glue,
     labeling,
     lifecycle,
-    munsell (>= 0.5),
     R6,
     RColorBrewer,
     rlang (>= 1.0.0),

NAMESPACE

@@ -262,4 +262,3 @@ importFrom(graphics,rect)
 importFrom(graphics,text)
 importFrom(lifecycle,deprecate_soft)
 importFrom(lifecycle,deprecated)
-importFrom(munsell,mnsl)

R/pal-gradient.R

@@ -49,11 +49,13 @@ gradient_n_pal <- pal_gradient_n
 #' image(r, col = pal_div_gradient()(seq(0, 1, length.out = 30)))
 #' image(r, col = pal_div_gradient()(seq(0, 1, length.out = 100)))
 #'
-#' library(munsell)
-#' pal <- pal_div_gradient(low = mnsl(complement("10R 4/6"), fix = TRUE))
+#' pal <- pal_div_gradient(low = "#2E6A70")
 #' image(r, col = pal(seq(0, 1, length.out = 100)))
-#' @importFrom munsell mnsl
-pal_div_gradient <- function(low = mnsl("10B 4/6"), mid = mnsl("N 8/0"), high = mnsl("10R 4/6"), space = "Lab") {
+pal_div_gradient <- function(
+    low  = "#2B6788", # munsell::mnsl("10B 4/6"),
+    mid  = "#CBCBCB", # munsell::mnsl("N 8/0"),
+    high = "#90503F", # munsell::mnsl("10R 4/6"),
+    space = "Lab") {
   pal_gradient_n(c(low, mid, high), space = space)
 }
 
@@ -72,9 +74,11 @@ div_gradient_pal <- pal_div_gradient
 #' show_col(pal_seq_gradient()(x))
 #' show_col(pal_seq_gradient("white", "black")(x))
 #'
-#' library(munsell)
-#' show_col(pal_seq_gradient("white", mnsl("10R 4/6"))(x))
-pal_seq_gradient <- function(low = mnsl("10B 4/6"), high = mnsl("10R 4/6"), space = "Lab") {
+#' show_col(pal_seq_gradient("white", "#90503F")(x))
+pal_seq_gradient <- function(
+    low  = "#2B6788", # munsell::mnsl("10B 4/6"),
+    high = "#90503F", # munsell::mnsl("10R 4/6"),
+    space = "Lab") {
   pal_gradient_n(c(low, high), space = space)
 }