R/zzz.R

In akinori-ito/kana2phone: Convert a Katakana string into a phone vector

.onLoad <- function(libname,pkgname) {
  # if (.Platform$OS.type == "windows") {
  #   load("data/K2P_TBL.rda")
  #   load("data/H2K_TBL.rda")
  #   K2P_TBL$kana <- iconv(K2P_TBL$kana,from="UTF-8",to="SHIFT_JIS")
  #   H2K_TBL$Hira <- iconv(H2K_TBL$Hira,from="UTF-8",to="SHIFT_JIS")
  #   H2K_TBL$Kata <- iconv(H2K_TBL$Kata,from="UTF-8",to="SHIFT_JIS")
  # }
}