#nocov start
#' @keywords internal
.extent <- function(x, y) {
c(xmax = max(x), xmin = min(x), ymax = max(y), ymin = min(y))
}
#nocov end
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.