Even more protections against 3.6.x

r-lib · Sep 19, 2024 · 7444c92 · 7444c92
1 parent 27172b7
commit 7444c92
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/palette-registry.R b/R/palette-registry.R
@@ -20,7 +20,7 @@
 #'
 #' @examples
 #' # Get one of the known palettes
-#' get_palette("Okabe-Ito")
+#' get_palette("hue")
 #'
 #' # Set a new custom palette
 #' cols <- c("palegreen", "deepskyblue", "magenta")
@@ -116,9 +116,10 @@ register_base_pals <- function() {
   if (getRversion() < "4.0.0") {
     return(invisible(NULL))
   }
-  names <- grDevices::palette.pals()
+  names   <- getFromNamespace("palette.pals", "grDevices")()
+  palette <- getFromNamespace("palette.colors", "grDevices")
   for (name in names) {
-    fun <- manual_pal(grDevices::palette.colors(palette = name), type = "colour")
+    fun <- manual_pal(palette(palette = name), type = "colour")
     set_palette(name, fun, warn_conflict = FALSE)
   }
   invisible(NULL)
@@ -154,4 +155,3 @@ register_dichromat_pals <- function() {
   }
   invisible(NULL)
 }
-
diff --git a/man/get_palette.Rd b/man/get_palette.Rd