rc 0.3.0

NAMESPACE

@@ -5,6 +5,8 @@ export(bathy_deep_pal)
 export(chlPal)
 export(chl_pal)
 export(col2hex)
+export(d_pal)
+export(data_pal)
 export(icePal)
 export(ice_pal)
 export(image_pal)

NEWS.md

@@ -1,5 +1,8 @@
 # palr  0.3.0
 
+* New function `d_pal()` and alias `data_pal()` to colour data values (like {colourvalues} but
+ simpler). 
+
 * Removed ftp links thanks to CRAN. 
 
 # palr  0.2.0

R/data_pal.R

@@ -0,0 +1,38 @@
+#' Colours for data values
+#'
+#' Scales input data to the palette, so that colour is mapped linearly to the range of values.
+#'
+#' Default palette 'pal' is the 'viridis' colours of [grDevices::hcl.colors()], and may be literal colour values
+#' or a function.
+#'
+#' [data_pal()] is an alias of [d_pal()].
+#'
+#' @param x data vector, maybe be numeric or character
+#' @param pal palette, may be colours or a function
+#'
+#' @export
+#' @importFrom grDevices hcl.colors
+#' @examples
+#' plot(1:100, col = d_pal(1:100))
+#' plot(1:100, col = d_pal(1:100, chl_pal))
+#'
+d_pal <- function(x, pal = hcl.colors(84)) {
+  if (is.function(pal)) {
+    pal <- pal(84)
+  }
+  if (is.character(x)) {
+    x <- as.integer(factor(x))
+  }
+  if (is.factor(x)) {
+    x <- as.integer(x)
+  }
+  x <- x[!is.na(x)]
+  xx <- (x  - min(x)) / diff(range(x))
+  pal[xx * (length(pal) - 1) + 1]
+}
+
+#' @name d_pal
+#' @export
+data_pal <- function(x, pal = hcl.colors(84)) {
+  d_pal(x, pal = pal)
+}

cran-comments.md

@@ -3,7 +3,7 @@
 Removed ftp link for CRAN checks, thank you very much. 
 
 ## Test environments
-* local ubuntu install, R 4.0.4
+* local ubuntu install, R 4.0.5
 * win-builder (devel)
 
 ## R CMD check results
@@ -17,5 +17,5 @@ The three reverse dependencies pass check with this version.
 
 * quadmesh
 * lazyraster
-* paleteer
+* paletteer