文字列の画数を取得するプログラム

get_strokes.R

library(stringi)
library(httr)
library(jsonlite)

names <- c("白石麻衣", "生田絵梨花", "齋藤飛鳥")

for (i in 1:length(names)){
  chars <- unlist(strsplit(names[i], split = ""))
  for (j in 1:length(chars)){
    chars_ucs <- stri_escape_unicode(chars[j])
    char_ucs_fixed <- gsub("\\\\u", "0x", chars_ucs)
    res <- GET(paste0("https://mojikiban.ipa.go.jp/mji/q?UCS=", char_ucs_fixed))
    res_json <- content(res, as = "text")
    res_df <- fromJSON(res_json)
    res_df <- subset(res_df[["results"]], 入管正字コード != "")
    final_res <- res_df[["総画数"]]
    print(paste(chars[j], char_ucs_fixed, final_res, sep = ": "))
  }
}