sinx: R 语言社区中文火花集"

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)
}


Try the sinx package in your browser

Any scripts or data that you put into this service are public.

sinx documentation built on July 1, 2020, 10:31 p.m.