https://github.com/cran/RgoogleMaps
Tip revision: 392f74799555da9d9fb105874ce44eaffb439ca2 authored by Markus Loecher on 06 November 2023, 12:20:02 UTC
version 1.5.1
version 1.5.1
Tip revision: 392f747
AddAlpha.R
AddAlpha <- structure(function#add alpha level to color that lacks one
###add alpha level to color that lacks one
(
plotclr, ##<< color to be modified
alpha=0.5, ##<< alpha level
verbose=0 ##<< level of verbosity
){
tmp <- col2rgb(plotclr, alpha=alpha)
tmp[4,] = round(alpha*255)
for (i in 1:ncol(tmp)){
plotclr[i] = rgb(tmp[1,i], tmp[2,i], tmp[3,i], tmp[4,i], maxColorValue = 255)
}
return(plotclr)
### modified color with alpha value
}, ex = function(){
#example:
#require(RColorBrewer)
if (requireNamespace("RColorBrewer", quietly = TRUE)) {
plotclr <- RColorBrewer::brewer.pal(8,"YlOrRd")
plotclr = AddAlpha(plotclr,0.5)
} else {
print("package RColorBrewer must be installed for this example")
}
})