Vectorize `separate_address()`

[uribo]

17 と関連してこちらも対応したい。

library(zipangu)
c("茨城県つくば市研究学園一丁目1番地1", 
  "岡山県岡山市北区大供一丁目1番1号") %>% 
  separate_address()
#> $prefecture
#> [1] "茨城県"
#> 
#> $city
#> [1] "岡山県"
#> 
#> $street
#> [1] NA

^{Created on 2020-04-06 by the reprex package (v0.3.0)}

この挙動もおかしい...

[uribo]

一番簡単なのは、入れ子のリストで返却することか。

[[1]]
[[1]]$prefecture
[1] "茨城県"

[[1]]$city
[1] "つくば市"

[[1]]$street
[1] "研究学園一丁目1番地1"

[[2]]
[[2]]$prefecture
[1] "岡山県"

[[2]]$city
[1] "岡山市北区"

[[2]]$street
[1] "大供一丁目1番1号"

ベクトル化された jholiday() のようにしても良いが。どうか。

[yutannihilation]

まあ入れ子のリストしかない感じしますね。jholiday()もそっちのほうがいいのかな...