［R］区点番号からJISコードを得る

以下の自作関数kutenToJisは、区点番号を与えるとそのJISコードを返す。

kutenToJis <- function(ku, ten) {
  s12 <- as.hexmode(ku + 0x20)
  s34 <- as.hexmode(ten + 0x20)
  s <- sprintf("0x%s%s", s12, s34)
  return(as.integer(s))
}

以下の2つの漢字で動作確認をする。

美 - 区点番号：4094, JISコード：0x487e（10進数 18558）
雲 - 区点番号：1732, JISコード：0x3140（10進数 12608）

動作例。

> kutenToJis <- function(ku, ten) {
+ s12 <- as.hexmode(ku + 0x20)
+ s34 <- as.hexmode(ten + 0x20)
+ s <- sprintf("0x%s%s", s12, s34)
+ return(as.integer(s))
+ }
> kutenToJis(40, 94)
[1] 18558
> jis <- kutenToJis(40, 94)
> print(jis)
[1] 18558
> print(as.hexmode(jis))
[1] "487e"
> jis <- kutenToJis(17, 32)
> print(jis)
[1] 12608
> print(as.hexmode(jis))
[1] "3140"