From a8ff478e212e13643a24ecae6eb986a0c41deac4 Mon Sep 17 00:00:00 2001
From: gnoblet <gnoblet@zaclys.net>
Date: Sun, 19 Feb 2023 17:49:00 -0500
Subject: [PATCH] Add a fallback palette based on Viridis

---
 R/pal_fallback.R | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 R/pal_fallback.R

diff --git a/R/pal_fallback.R b/R/pal_fallback.R
new file mode 100644
index 0000000..add80f5
--- /dev/null
+++ b/R/pal_fallback.R
@@ -0,0 +1,19 @@
+pal_fallback <- function(reverse = FALSE,
+                         color_ramp_palette = FALSE,
+                         discrete = FALSE,
+                         n = 5,
+                         ...){
+
+  pal <- if(discrete) { viridisLite::viridis(n) } else {viridisLite::magma(n)}
+
+  if (reverse) pal <- rev(pal)
+
+  if (color_ramp_palette) {
+    rlang::check_installed("grDevices", reason = "Package \"grDevices\" needed for `pal_fallback()` with 'color_ramp_palette' set to `TRUE` to work. Please install it.")
+
+    pal <- grDevices::colorRampPalette(pal, ...)
+  }
+
+  return(pal)
+
+}