- 追加された行はこのように表示されます。
- 削除された行は
このように表示されます。
!!! 財務数値を扱う
!! 全角数値を半角にする
まずは関数をセット
> 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("12345", "hankaku")
[ 1] "12345"
> str_conv_zenhan("123,456", "hankaku")
[1] "123,456"
> str_conv_zenhan("123百万円", "hankaku")
[1] "123百万円"
> str_conv_zenhan("12月18日", "hankaku")
[1] "12月18日"
> str_conv_zenhan("2019年12月18日", "hankaku")
[1] "2019年12月18日"
> str_conv_zenhan("只今の時刻は2019年12月18日の14時40分", "hankaku")
[1] "只今の時刻は2019年12月18日の14時40分"
:参考:
https://github.com/uribo/zipangu/blob/master/R/convert-str.R