Return function to interpolate a cori color palette
cori_pal.RdReturn function to interpolate a cori color palette
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>