Slide 17
Slide 17 text
[JQBOHV
ຊޠपΓͷΛղܾ͢ΔศརͳػೳΛఏڙ
IUUQTHJUIVCDPNVSJCP[JQBOHVJTTVFT
library(zipangu)
convert_jyear("R3")
#> [1] 2021
convert_jdate("ྩ̏12݄18")
#> [1] "2021-12-18"
# ॕͷఆ
#ʢఱߖੜɺΦϦϯϐοΫؔͷΧϨϯμʔͷมߋʹରԠʣ
is_jholiday("2018-12-24")
#> [1] TRUE
is_jholiday("2021-12-24")
#> [1] FALSE
is_jholiday("2022-01-10")
#> [1] TRUE
kansuji2arabic(c("Ұ", "ඦ"))
#> [1] "1" "100"
# ฦΓΛ
kansuji2arabic(c("Ұ", "ඦ"), convert = FALSE)
#> [1] 1 100
# Nipponύοέʔδʹͳ͔ͬͨؔ
separate_address("౦ژઍా۠େखொҰஸ")
#> $prefecture
#> [1] "౦ژ"
#>
#> $city
#> [1] "ઍా۠"
#>
#> $street
#> [1] "େखொҰஸ"
harmonize_prefecture_name(
c("౦ژ", "ւಓ", "ԭೄ"),
to = "long")
#> [1] "౦ژ" "ւಓ" "ԭೄݝ"