全角数値

財務数値を扱う

  全角数値を半角にする

まずは関数をセット

> 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