Miss-match: find_neighbor_mesh() assigned specific meshcode

[uribo]

In some cases, the value to return is incorrect.

ex)

library(magrittr)
library(jpmesh)
packageVersion("jpmesh")
#> [1] '1.0.1'
library(leaflet)

wrong <- "37250395"

find_neighbor_mesh(wrong)
#> [1] 37250384 37250385 37250386 37250394 37250395 37250396 37250404 37250405
#> [9] 37250406

df_check <- data.frame(
  meshcode = find_neighbor_mesh(wrong),
  stringsAsFactors = FALSE) %>%
  dplyr::mutate(geometry = purrr::pmap(., ~ export_mesh(meshcode = .x) %>%
                                         sf::st_as_text())) %>%
  tidyr::unnest() %>%
  dplyr::mutate(geometry = sf::st_as_sfc(geometry)) %>%
  sf::st_sf()

Created on 2018-02-15 by the reprex package (v0.2.0).

leaflet::leaflet() %>%
  leaflet::addTiles() %>%
  leaflet::addPolygons(data = df_check, popup = ~as.character(meshcode))