Error: find_pref() failed

[uribo]

library(jpndistrict)
#> Loading required package: jpmesh
#> This package provide map data is based on the Digital Map 25000
#> (Map Image) published by Geospatial Information Authority of Japan
#> (Approval No.603FY2017 information usage <http://www.gsi.go.jp>)

find_pref(135.8167, 35.3)
#> Warning in jis_code == admins_code_validate(code)$code: longer object
#> length is not a multiple of shorter object length
#> Error in gzfile(file, "rb"): invalid 'description' argument
find_prefs(135.8167, 35.3)
#> # A tibble: 5 x 4
#>   pref_code meshcode_80km prefecture region
#>   <chr>             <dbl> <fct>      <chr> 
#> 1 25                 5235 滋賀県     近畿  
#> 2 26                 5235 京都府     近畿  
#> 3 27                 5235 大阪府     近畿  
#> 4 28                 5235 兵庫県     近畿  
#> 5 29                 5235 奈良県     近畿
find_city(135.8167, 35.3)
#> Simple feature collection with 2 features and 3 fields
#> geometry type:  POLYGON
#> dimension:      XY
#> bbox:           xmin: 135.7255 ymin: 35.00632 xmax: 136.1529 ymax: 35.54011
#> epsg (SRID):    4326
#> proj4string:    +proj=longlat +datum=WGS84 +no_defs
#> # A tibble: 2 x 4
#>   prefecture city_code city                                       geometry
#>   <chr>      <chr>     <chr>                                 <POLYGON [°]>
#> 1 滋賀県     25212     高島市        ((136.0875 35.53907, 136.0936 35.537…
#> 2 京都府     26103     京都市 左京区 ((135.8048 35.31718, 135.8088 35.316…

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

find_city()の結果が複数あるのを解消する必要がある。