!!! 財務数値を扱う

!! 全角数値を半角にする

まずは関数をセット

 > str_conv_zenhan <- function(str, to = c("zenkaku", "hankaku")) {
 +     rlang::arg_match(to)
 +     switch (to,
 +             "zenkaku" = stringi::stri_trans_general(str, "Halfwidth-Fullwidth"),
 +             "hankaku" = stringi::stri_trans_general(str, "Fullwidth-Halfwidth")
 +     )
 + }

以下のようになる。

 > str_conv_zenhan("１２３４５", "hankaku")
 [ 1] "12345"
 > str_conv_zenhan("１２３，４５６", "hankaku")
 [1] "123,456"
 > str_conv_zenhan("１２３百万円", "hankaku")
 [1] "123百万円"
 > str_conv_zenhan("１２月１８日", "hankaku")
 [1] "12月18日"
 > str_conv_zenhan("20１９年１２月１８日", "hankaku")
 [1] "2019年12月18日"
 > str_conv_zenhan("只今の時刻は20１９年１２月１８日の１４時４０分", "hankaku")
 [1] "只今の時刻は2019年12月18日の14時40分"

:参考:
https://github.com/uribo/zipangu/blob/master/R/convert-str.R