palette can now be a vector of colours

ggobi · Mar 7, 2024 · 133fee9 · 133fee9
1 parent e31f32b
commit 133fee9
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 1 deletion.
diff --git a/NEWS.md b/NEWS.md
@@ -4,6 +4,7 @@
 * flea is now standardised measurements, and flea_raw is the original units
 * TeachingDemos removed as a Suggests, and replaced with aplpack for drawing Chernoff faces
 * addition of a pre-specified ellipse can be added to the 2D display
+* palette can now be a vector of values
 
 # tourr 1.1.0 
 

diff --git a/R/util.r b/R/util.r
@@ -122,7 +122,14 @@ areColors <- function(x) {
 #' @export
 mapColors <- function(x, palette) {
  n <- length(unique(x))
- pal <- grDevices::hcl.colors(n, palette=palette)
+ # Handle manual colour setting
+ if (length(palette) > 1) {
+ stopifnot(length(palette) == n)
+ pal <- palette
+ }
+ else {
+ pal <- grDevices::hcl.colors(n, palette=palette)
+ }
  pal[as.numeric(as.factor(x))]
 }