diff --git a/DESCRIPTION b/DESCRIPTION index 0ee8fe58..476236c6 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -21,7 +21,6 @@ Imports: glue, labeling, lifecycle, - munsell (>= 0.5), R6, RColorBrewer, rlang (>= 1.0.0), diff --git a/NAMESPACE b/NAMESPACE index 6ce1d4b5..bf983f83 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -262,4 +262,3 @@ importFrom(graphics,rect) importFrom(graphics,text) importFrom(lifecycle,deprecate_soft) importFrom(lifecycle,deprecated) -importFrom(munsell,mnsl) diff --git a/R/pal-gradient.R b/R/pal-gradient.R index 7d308951..5b0830c7 100644 --- a/R/pal-gradient.R +++ b/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) } diff --git a/man/pal_div_gradient.Rd b/man/pal_div_gradient.Rd index c633eef9..d0e37b81 100644 --- a/man/pal_div_gradient.Rd +++ b/man/pal_div_gradient.Rd @@ -6,16 +6,16 @@ \title{Diverging colour gradient (continuous).} \usage{ pal_div_gradient( - low = mnsl("10B 4/6"), - mid = mnsl("N 8/0"), - high = mnsl("10R 4/6"), + low = "#2B6788", + mid = "#CBCBCB", + high = "#90503F", space = "Lab" ) div_gradient_pal( - low = mnsl("10B 4/6"), - mid = mnsl("N 8/0"), - high = mnsl("10R 4/6"), + low = "#2B6788", + mid = "#CBCBCB", + high = "#90503F", space = "Lab" ) } @@ -39,7 +39,6 @@ image(r, col = pal_div_gradient()(seq(0, 1, length.out = 12))) 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))) } diff --git a/man/pal_seq_gradient.Rd b/man/pal_seq_gradient.Rd index 253e133e..fd74d7fc 100644 --- a/man/pal_seq_gradient.Rd +++ b/man/pal_seq_gradient.Rd @@ -5,9 +5,9 @@ \alias{seq_gradient_pal} \title{Sequential colour gradient palette (continuous)} \usage{ -pal_seq_gradient(low = mnsl("10B 4/6"), high = mnsl("10R 4/6"), space = "Lab") +pal_seq_gradient(low = "#2B6788", high = "#90503F", space = "Lab") -seq_gradient_pal(low = mnsl("10B 4/6"), high = mnsl("10R 4/6"), space = "Lab") +seq_gradient_pal(low = "#2B6788", high = "#90503F", space = "Lab") } \arguments{ \item{low}{colour for low end of gradient.} @@ -25,6 +25,5 @@ x <- seq(0, 1, length.out = 25) 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)) +show_col(pal_seq_gradient("white", "#90503F")(x)) }