## code to prepare `DATASET` dataset goes here
library(quadmesh)
library(raster)
.mesh3d <- quadmesh(crop(worldll, extent(100, 150, -60, -30)))
#data(wrld_simpl, package = "maptools")
#.sc <- silicate::SC(subset(wrld_simpl, NAME %in% c("Australia", "New Zealand")))
## FIX .sc 2023-12-05
.sc$meta$proj <- trimws(.sc$meta$proj)
## I will surely pay for this
epsg <- rgdal::make_EPSG()
idx <- grep("\\+proj\\=longlat", epsg$prj4)
.epsg_code <- sort(unique(epsg$code[idx]))
usethis::use_data(.sc, .mesh3d, .epsg_code, internal = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.