#' write_sp2rgb
#'
#' @param grid SpatialGridPixels or SpatialGridDataFrame object
#' @param brks
#' @param cols
#'
#' @param mask Boolean vector indicate where to mask
#' @param col_mask
#'
#' @examples
#' \dontrun{
#' write_sp2rgb(grid, brks, cols, file = "dem_pearl_rgb.tif")
#' }
#' @export
write_sp2rgb <- function(grid, brks, cols, file = "sp_rgb.tif",
mask = NULL, col_mask = "transparent")
{
col2dt <- function(cols) col2rgb(cols) %>% t() %>% as.data.table()
colormap = col2dt(cols)
ind = findInterval(grid@data[, 1], brks) # %>% summary()
d_rgb = colormap[ind, ]
grid_rgb = grid
grid_rgb@data <- d_rgb
rgdal::writeGDAL(grid_rgb, file, options = c("COMPRESS=DEFLATE")) #
grid_rgb
}
# if (!is.null(mask)) {
# I_mask = which(mask)
# d_rgb[I_mask, ] =
# }
get_legend <- function(brks) {
key = Ipaper::get_colorkey(brks, cols, is_factor = TRUE)
g <- draw.colorkey(key)
write_fig(g, "test/dem_legend.jpg", 9.2, 0.75)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.