#' @include clhs-data.frame.R
#' @rdname clhs
#' @importFrom raster rasterToPoints
#' @method clhs Raster
#' @export
#' @noRd
clhs.Raster <- function(
x, # data
...
){
spdf <- rasterToPoints(x, spatial = TRUE)
spl <- clhs(x = spdf, ...)
dots <- list(...)
simple <- dots$simple
if (length(simple) == 0) simple <- TRUE
if (!simple) {
spl$initial_object <- x
}
spl
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.