library(microbenchmark)
library(geojsonio)
library(h3forr)
h3_index <- geo_to_h3_map(us_cities[1:50, ], "lat", "long")
microbenchmark(
lapply(h3_index, h3_to_geo_boundary),
purrr::map(h3_index, h3_to_geo_boundary),
h3_to_geo_boundary(h3_index)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.