as_wgs84 <- function(x, crs) {
x %>%
sf::st_point() %>%
sf::st_sfc(crs = crs) %>%
sf::st_transform(4326) %>%
sf::st_coordinates() %>%
as.numeric()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.