Nothing
##' Convert a chinese text to pinyin format.
##'
##' @title Convert a chinese text to pinyin format.
##' @param string A character vector.
##' @param capitalize Whether to capitalize the first letter of each word.
##' @return A character vector in pinyin format.
##' @author Jian Li <\email{rweibo@@sina.com}>
##' @keywords string
##' @examples
##' toPinyin("the quick red fox jumps over the lazy brown dog")
##'
##'
toPinyin <- function(string, capitalize = FALSE) {
string <- .verifyChar(string)
.tmcnEnv <- .verifyEnv()
if (!exists(".pinyinEnv", envir = .tmcnEnv)) {
curEnv <- environment()
utils::data(GBK, envir = curEnv)
GBK <- get("GBK", envir = curEnv)
assign(".pinyinEnv", .createHashmapEnv(GBK$GBK, GBK$py0), envir = .tmcnEnv)
}
OUT <- strsplit(string, split = "")
OUT <- lapply(OUT, FUN = function(X)
sapply(X, FUN = function(Y) {
res <- Y
try(res <- as.character(get(Y, envir = get(".pinyinEnv", envir = .tmcnEnv))), silent = TRUE)
res
}
)
)
if (capitalize) OUT <- lapply(OUT, strcap)
OUT <- sapply(OUT, FUN = function(X) paste(X, collapse = ""))
return(OUT)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.