`mesh_district()` is invalid

[uribo]

Any filter is not functioning.

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)

Created on 2018-06-07 by the reprex package (v0.2.0).

In relation, the test is also wrong.