R/convert_pinyin.R

In OPTI-SURVEIL/chinsimi: Measuring the Similarity between Chinese Strings

#' Convert Chinese strings to pinyin.
#' @encoding UTF-8
#' @param Chin.strs The string need to be converted. Note, it should have a declared encoding, preferably UTF-8
#' @param tones Whether the output should be toned (T) or toneless.
#' @param multi Whether the output should list multiple pinyins for characters with multiple pronunciations
#' @param sep Character used to seperate different characters. Must be '' or '_' for proper operation
#' @param ... Unused
#' @return pinyin of \code{Chin.str}.


ChStr2py <- function(Chin.strs, tones = TRUE, multi = TRUE, sep = "_", ...){

    maxchar = max(nchar(Chin.strs),na.rm=T)
    enc = Encoding(Chin.strs)

    if(!all(enc == 'UTF-8')) Chin.strs = enc2utf8(Chin.strs)

  # OS = Sys.info()['sysname']
  # switch(OS, Linux = Sys.setlocale(locale = 'zh_CN.GBK'),
  #        Darwin = Sys.setlocale(locale = 'zh_CN.GBK'),
  #        Windows = Sys.setlocale(locale = 'chs'))


  resmat = vector('list',length=maxchar)

  for(i in 1:maxchar){
    chars = substr(Chin.strs,i,i)
    chars[chars == ''] <- '_'
    chars_ = substr(stringi::stri_escape_unicode(chars),2,999)
    chars_[nchar(chars_) == 0] = '_'
    resmat[[i]] = unlist(mget(chars_,pylib,ifnotfound = chars))
    if(!multi){
      resmat[[i]] = gsub('[|,*$','',resmat[[i]])
    }
  }

  res = do.call(paste,c(resmat[1:length(resmat)],sep=sep))

  res = gsub('_+$','',res)

  if(!tones) res = gsub('[1-5]','',res)

  res
}