Mercurial > repos > marie-tremblay-metatoul > 2dnmrannotation
comparison viridis.R @ 2:dff7bde22102 draft
"planemo upload for repository https://github.com/workflow4metabolomics/tools-metabolomics commit b3abcb650e9b38458aa0ac5f7d838811d982ff65"
| author | workflow4metabolomics |
|---|---|
| date | Tue, 04 Feb 2020 10:59:26 -0500 |
| parents | |
| children | 546c7ccd2ed4 |
comparison
equal
deleted
inserted
replaced
| 1:a4d2b1926e13 | 2:dff7bde22102 |
|---|---|
| 1 viridis <- function (n, alpha = 1, begin = 0, end = 1, direction = 1, option = "D") | |
| 2 { | |
| 3 if (begin < 0 | begin > 1 | end < 0 | end > 1) { | |
| 4 stop("begin and end must be in [0,1]") | |
| 5 } | |
| 6 if (abs(direction) != 1) { | |
| 7 stop("direction must be 1 or -1") | |
| 8 } | |
| 9 if (direction == -1) { | |
| 10 tmp <- begin | |
| 11 begin <- end | |
| 12 end <- tmp | |
| 13 } | |
| 14 option <- switch(EXPR = option, A = "A", magma = "A", | |
| 15 B = "B", inferno = "B", C = "C", plasma = "C", | |
| 16 D = "D", viridis = "D", E = "E", cividis = "E", | |
| 17 { | |
| 18 warning(paste0("Option '", option, "' does not exist. Defaulting to 'viridis'.")) | |
| 19 "D" | |
| 20 }) | |
| 21 map <- viridisLite::viridis.map[viridisLite::viridis.map$opt == | |
| 22 option, ] | |
| 23 map_cols <- grDevices::rgb(map$R, map$G, map$B) | |
| 24 fn_cols <- grDevices::colorRamp(map_cols, space = "Lab", | |
| 25 interpolate = "spline") | |
| 26 cols <- fn_cols(seq(begin, end, length.out = n))/255 | |
| 27 grDevices::rgb(cols[, 1], cols[, 2], cols[, 3], alpha = alpha) | |
| 28 } |