Skip to contents

Return function to interpolate a cori color palette

Usage

cori_pal(palette = "ctg2gn", reverse = FALSE, ...)

Arguments

palette

Character name of palette in cori_palettes

reverse

Boolean indicating whether the palette should be reversed

...

Additional arguments to pass to colorRampPalette()

Examples

cori_pal("ctg7")
#> function (n) 
#> {
#>     x <- ramp(seq.int(0, 1, length.out = n))
#>     if (ncol(x) == 4L) 
#>         rgb(x[, 1L], x[, 2L], x[, 3L], x[, 4L], maxColorValue = 255)
#>     else rgb(x[, 1L], x[, 2L], x[, 3L], maxColorValue = 255)
#> }
#> <bytecode: 0x55589c0141e0>
#> <environment: 0x55589c016ec8>