get_nearest_gridcell_from_graph <- function(i, locs, grid, g) {
return(tibble(i = i, idx = trace_neighbors_from_graph(locs[i, ], grid, g)))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.