update make_palette

cjtexas · Oct 20, 2023 · 6a6ca34 · 6a6ca34
1 parent 53218f0
commit 6a6ca34
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/R/make_palette.R b/R/make_palette.R
@@ -89,22 +89,22 @@ make_palette <- function(colour=NULL, n=7, reverse=FALSE, shuffle=FALSE, default
 
   if (!exists("colour_fun")) {
     colour_fun <- default_pal(default)
-    colour_string <- colour_fun(n)
+    colour_palette <- colour_fun(n)
   } else {
-    colour_string <- colour_fun(n)
+    colour_palette <- colour_fun(n)
   }
 
   if (reverse) {
-    colour_string <- rev(colour_fun(n))
+    colour_palette <- rev(colour_fun(n))
   }
 
   if (shuffle) {
     set.seed(333)
-    colour_string <- sample(colour_fun(n))
+    colour_palette <- sample(colour_fun(n))
   }
 
-  class(colour_string) <- c("colourgen", class(colour_string))
-  return(colour_string)
+  class(colour_palette) <- c("colourgen", class(colour_palette))
+  return(colour_palette)
 
 }