Nothing
################################################################################
### Generate a color palette via the colorspace package
###
### Copyright (C) 2007 Michael Hoehle, 2012-2014,2017,2019,2021 Sebastian Meyer
###
### This file is part of the R package "surveillance",
### free software under the terms of the GNU General Public License, version 2,
### a copy of which is available at http://www.r-project.org/Licenses/.
################################################################################
.hcl.colors <- function (ncolors=100, use.color=TRUE)
{
GYR <- if (requireNamespace("colorspace", quietly=TRUE)) {
## the Zeil-ice colors
colorspace::heat_hcl(ncolors, h=c(0,120),
c.=if (use.color) c(90,30) else c(0,0),
l=c(50,90), power=c(0.75, 1.2))
} else if (use.color) {
grDevices::hcl.colors(n = ncolors, palette = "Heat 2")
## this is the same as colorspace::heat_hcl(ncolors)
} else {
grey.colors(ncolors)
}
return(rev(GYR))
}
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.