--- a/viridis.R	Fri Feb 04 09:01:11 2022 +0000
+++ b/viridis.R	Thu Jan 23 15:28:44 2025 +0000
@@ -1,26 +1,38 @@
-viridis <- function(n, alpha = 1, begin = 0, end = 1, direction = 1, option = "D") {
-  if (begin < 0 | begin > 1 | end < 0 | end > 1) {
-    stop("begin and end must be in [0,1]")
-  }
-  if (abs(direction) != 1) {
-    stop("direction must be 1 or -1")
-  }
-  if (direction == -1) {
-    tmp <- begin
-    begin <- end
-    end <- tmp
-  }
-  option <- switch(EXPR = option, A = "A", magma = "A",
-                   B = "B", inferno = "B", C = "C", plasma = "C",
-                   D = "D", viridis = "D", E = "E", cividis = "E", {
-                     warning(paste0("Option '", option, "' does not exist. Defaulting to 'viridis'."))
-                     "D"
-                   })
-  map <- viridisLite::viridis.map[viridisLite::viridis.map$opt ==
-                                    option, ]
-  map_cols <- grDevices::rgb(map$R, map$G, map$B)
-  fn_cols <- grDevices::colorRamp(map_cols, space = "Lab",
-                                  interpolate = "spline")
-  cols <- fn_cols(seq(begin, end, length.out = n)) / 255
-  grDevices::rgb(cols[, 1], cols[, 2], cols[, 3], alpha = alpha)
-}
+viridis <- function(n, alpha = 1, begin = 0, end = 1, direction = 1, option = "D") {
+    if (begin < 0 | begin > 1 | end < 0 | end > 1) {
+        stop("begin and end must be in [0,1]")
+    }
+    if (abs(direction) != 1) {
+        stop("direction must be 1 or -1")
+    }
+    if (direction == -1) {
+        tmp <- begin
+        begin <- end
+        end <- tmp
+    }
+    option <- switch(EXPR = option,
+        A = "A",
+        magma = "A",
+        B = "B",
+        inferno = "B",
+        C = "C",
+        plasma = "C",
+        D = "D",
+        viridis = "D",
+        E = "E",
+        cividis = "E",
+        {
+            warning(paste0("Option '", option, "' does not exist. Defaulting to 'viridis'."))
+            "D"
+        }
+    )
+    map <- viridisLite::viridis.map[viridisLite::viridis.map$opt ==
+        option, ]
+    map_cols <- grDevices::rgb(map$R, map$G, map$B)
+    fn_cols <- grDevices::colorRamp(map_cols,
+        space = "Lab",
+        interpolate = "spline"
+    )
+    cols <- fn_cols(seq(begin, end, length.out = n)) / 255
+    grDevices::rgb(cols[, 1], cols[, 2], cols[, 3], alpha = alpha)
+}