library(jpndistrict)
#> Loading required package: jpmesh
#> This package provide map data is based on the Digital Map
#> 25000(Map Image) published by Geospatial Information Authorityof
#> Japan (Approval No.603FY2017 information usage
#> <http://www.gsi.go.jp>)
d <-
mesh_district(jis_code = 33101)
nrow(d)
# [1] 11264
mapview::mapview(d)
Any filter is not functioning.
Created on 2018-06-07 by the reprex package (v0.2.0).
In relation, the test is also wrong.