coords <- c(37.3615593, -122.0553238)
geo_to_h3(coords) %>%
k_ring() %>%
h3_to_geo_boundary() %>%
geo_boundary_to_sf() %>%
plot()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.