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