--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/nmr_annotation2d/viridis.R	Tue Feb 04 04:05:38 2020 -0500
@@ -0,0 +1,28 @@
+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)
+}
\ No newline at end of file