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

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

jisToKuten <- function(jis) {
  s <- sprintf("%04x", jis)
  n1 <- as.integer(sprintf("0x%s", substr(s, 1, 2))) - 0x20
  n2 <- as.integer(sprintf("0x%s", substr(s, 3, 4))) - 0x20
  return(c(n1, n2))
}

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

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

動作例。

> jisToKuten <- function(jis) {
+ s <- sprintf("%04x", jis)
+ n1 <- as.integer(sprintf("0x%s", substr(s, 1, 2))) - 0x20
+ n2 <- as.integer(sprintf("0x%s", substr(s, 3, 4))) - 0x20
+ return(c(n1, n2))
+ }
> kuten <- jisToKuten(0x487e)
> print(kuten)
[1] 40 94
> length(kuten)
[1] 2
> kuten <- jisToKuten(12608)
> print(kuten)
[1] 17 32
> length(kuten)
[1] 2