# NOT RUN {
export_meshes("4128")
find_neighbor_mesh("37250395") %>%
export_meshes()
d <- data.frame(id = seq.int(4),
meshcode = rmesh(4),
stringsAsFactors = FALSE)
meshcode_sf(d, meshcode)
# }
Run the code above in your browser using DataLab