oz <- oz::ozRegion()
#names(oz)
#str(oz$lines[[1]])
headtail <- function(x) {
x[c(1:dim(x)[1], 1), ]
}
x <- sf::st_sfc(purrr::map(oz$lines, ~sf::st_linestring(do.call(cbind, .x))))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.