Nothing
#'Generate Climate Color Palettes
#'
#'Generates a colorblind friendly color palette with color ranges useful in
#'climate temperature variable plotting.
#'
#'@param palette Which type of palette to generate: from blue through white
#' to red ('bluered'), from red through white to blue ('redblue'), from
#' yellow through orange to red ('yellowred'), or from red through orange
#' to red ('redyellow').
#'@param n Number of colors to generate.
#'
#'@keywords datagen
#'@author History:\cr
#'0.0 - 2016-01 (N. Manubens) - Original code.
#'@examples
#'lims <- seq(-1, 1, length.out = 21)
#'
#'ColorBar(lims, color_fun = clim.palette('redyellow'))
#'
#'cols <- clim.colors(20)
#'ColorBar(lims, cols)
#'
#'@rdname clim.palette
#'@importFrom grDevices colorRampPalette
#'@export
clim.palette <- function(palette = "bluered") {
if (palette == "bluered") {
colorbar <- colorRampPalette(rev(c("#67001f", "#b2182b", "#d6604d",
"#f4a582", "#fddbc7", "#f7f7f7",
"#d1e5f0", "#92c5de", "#4393c3",
"#2166ac", "#053061")))
attr(colorbar, 'na_color') <- 'pink'
} else if (palette == "redblue") {
colorbar <- colorRampPalette(c("#67001f", "#b2182b", "#d6604d",
"#f4a582", "#fddbc7", "#f7f7f7",
"#d1e5f0", "#92c5de", "#4393c3",
"#2166ac", "#053061"))
attr(colorbar, 'na_color') <- 'pink'
} else if (palette == "yellowred") {
colorbar <- colorRampPalette(c("#ffffcc", "#ffeda0", "#fed976",
"#feb24c", "#fd8d3c", "#fc4e2a",
"#e31a1c", "#bd0026", "#800026"))
attr(colorbar, 'na_color') <- 'pink'
} else if (palette == "redyellow") {
colorbar <- colorRampPalette(rev(c("#ffffcc", "#ffeda0", "#fed976",
"#feb24c", "#fd8d3c", "#fc4e2a",
"#e31a1c", "#bd0026", "#800026")))
attr(colorbar, 'na_color') <- 'pink'
} else {
stop("Parameter 'palette' must be one of 'bluered', 'redblue', 'yellowred' or 'redyellow'.")
}
colorbar
}
#'@rdname clim.palette
#'@export
clim.colors <- function(n, palette = "bluered") {
clim.palette(palette)(n)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.