In pzhaonet/sinx: Sino Xmen Said

os <- Sys.info()['sysname']
if(os == 'Windows') {
  old_loc <- Sys.getlocale("LC_CTYPE")
  Sys.setlocale("LC_CTYPE","Chinese")
}
library("sinx")
library("utils")
f <- sinx:::merge_text(method = 'vig')

cat(f$vig, sep = '\n\n\n\n')

if(os == 'Windows') {
  Sys.setlocale("LC_CTYPE",old_loc)
}

pzhaonet/sinx documentation built on June 12, 2020, 9:18 p.m.