vignettes/search_pinyin.R

In Gabegit/gmdata: My some useful functions for data tools.

## ----warning=FALSE-------------------------------------------------------
library(gmdata)

## ----warning=FALSE-------------------------------------------------------
search_with_py("fu")


## ----warning=FALSE-------------------------------------------------------
search_with_py(c("fu","hu"))


## ----warning=FALSE-------------------------------------------------------
search_with_py("f")

## ----warning=FALSE-------------------------------------------------------
pl <- list(c("lan","ren"),c("leng","reng"))
compare_pinyin(pl)

## ----warning=FALSE-------------------------------------------------------
pl2 <- list(c("lan","ran"),c("lao","rao"),c("le","re"),c("lou","rou"),c("liang","rang"),c("long","rong"), c("lun","run"),c("leng","reng"),c("luan","ru"))

compare_pinyin(pl2)

## ----warning=FALSE-------------------------------------------------------
nl <- list(c("nei","lei"),c("len","nen"),c("luo","nuo"))
compare_pinyin(nl)

## ----warning=FALSE-------------------------------------------------------
search_easy_mistake('初')

## ----warning=FALSE-------------------------------------------------------
search_easy_mistake('婚')

## ----warning=FALSE-------------------------------------------------------
search_easy_mistake('装')

## ----warning=FALSE-------------------------------------------------------
search_easy_mistake("除",onlyTheWord = TRUE)

## ----warning=FALSE-------------------------------------------------------

my_easy_mis <- c("审","互","复","环") 
lapply(my_easy_mis,search_easy_mistake)