R/color_setting.R

In plotly/rasterly: Easily and Rapidly Generate Raster Image Data with Support for 'Plotly.js'

get_rgb_num <- function(color) {
  rgb_num <- grDevices::col2rgb(color)
  list(
    red = rgb_num['red', ],
    green = rgb_num['green', ],
    blue = rgb_num['blue', ]
  )
}

interpolation <- function(..., span = NULL) {

  if(is.null(span)) span <- 50 # default setting in approx
  args <- list(...)
  lapply(args,
         function(arg){
           stats::approx(x = arg, n = span)[['y']]
         })

}

gg_color_hue <- function(n) {
  hues <- seq(15, 375, length = n + 1)
  grDevices::hcl(h = hues, l = 65, c = 100)[1:n]
}