ge.spdf2SPDF <- function(spdf) {
grd <- spdf
sp::gridded(grd) <- TRUE
grd_SPDF <- as(grd, "SpatialPolygonsDataFrame")
return(grd_SPDF)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.