edges <- road_safety_greater_manchester[1, ] %>%
geo_to_h3() %>%
get_h3_unidirectional_edges_from_hexagon()
h3_unidirectional_edge_is_valid(edges)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.