新增 cosx::cosay()，得到一个小动物说语录的彩色图：
-----
奇怪了你的代码在我的机器上完全没有问题啊
--- tctcab (<https://d.cosx.org/d/420198--/2>), d.cosx.org, 2018 年 9 月
------
\
\
\
\ _,
-==<' `
) /
/ (_.
| ,-,`\
\\ \ \
`\, \ \
||\ \`|,
jgs _|| `=`-'
~~`~`可以把cosx::cosay()添加到 R安装路径/etc/Rprofile.site里。这样，每次打开 R，就随机出现一条语录……
dapengde 不要修改任何系统文件，否则下次重装或更新软件就被覆盖了。建议用 ~/.Rprofile。
包的名字建议用 sinx 而不要用泛泛的 cosx，因为论坛的域名是 -sin(x) https://cosx.org/2017/07/cos-new-site/
这个包可以考虑迁移至 cosname 项目下。
还有我觉得没啥必要复制 fortunes 的代码，逻辑很简单，可以闭眼纯手工写。fortunes 里的 LaTeX 部分函数我觉得没啥用（那帮欧洲人都是 LaTeX 控，这种暗黑 gsub() 代码我看着闹心），还不如支持 R Markdown 输出（用引用 > 格式）。而且分号分隔的数据对 Github 不友好（逗号或制表符分隔的数据在 Github 上可以直接以表格形式浏览）。最后就是建议加个简单的 RStudio addin 界面用来录入数据，省得考虑什么时候要在文本里加引号、反斜杠。
又及：Sys.setlocale("LC_CTYPE", "English") 是 Windows 特有的，别的系统上没法跑。凡是需要设置语言的情况，几乎一定有更深层的毛病没解决。
csv格式用的不是comma所以在github上显示了一团，改成comma吧
dapengde 论坛的帖子链接这样做比较好，比如本帖的链接应该为 <https://d.cosx.org/d/420467>
而不是 <https://d.cosx.org/d/420467-cosx-fortunes> 因为后者会由于帖子修改标题发生变化，420467 是帖子的唯一 ID 这样做显得比较简洁，比如 <https://d.cosx.org/d/420198--/2> 可以变为 <https://d.cosx.org/d/420198/2>
yihui tctcab Cloud2016 谢谢各位的建议！大家如此热情，我这就找时间去改。
sinx......哈哈哈，挠到我的痒痒了。或者叫 fortunes2？sinx 理解起来有点曲折吧。不过如果大家觉得好玩也无所谓。以后可以继续开发姊妹篇 tanx，ctanx......
代码里确实问题很多，我来说说他们是怎么来的。
fortunes::fortune()函数本身的设计是可以支持导入自定义语录文件的，所以照理说只需做个新的 .csv 文件就行了，根本用不着写个新包。然而可惜的是，fortunes::read.fortunes()里使用 read.table() 函数时没有指定编码，于是读入的中文语录就全乱码了（这可能也是 windows 用户独享的待遇）。这是问题 A。fortunes:::print.fortune() 要求指定个 width 来折行显示，这个对中文又不支持。这是问题 B。等改到这里的时候，我已经意识到还不如重写，然而既然已经能凑合用了，我就懒得重写了。于是分号分隔这些特点都继承下来了 tctcab 。当然，这个容易改，改成默认值，用户也可以自定义分隔符。
另一层面上， fortunes 是 CRAN 名下的包，于是有盲目崇拜心理，觉得人家官方的包肯定比我这外行从零开始写得好吧。我把修改版 PR 过去不就得了嘛，没必要另写一个包，然而这时才发现 cran/fortunes 项目居然是只读。
于是只好弄成了这个新包。新包对 fortunes 包是兼容的，可以读入 fortunes 的语录：
ftns <- cosx::read.cosxs(system.file("fortunes/fortunes.csv", package = "fortunes"))
cosx::cosx(cosxs.data = ftns)这样，就可以很方便地把中外文语录合并起来了。而且，别的语种的用户就都可以使用 cosx 包了，只需自己做一个语录表，不必每次都重写——所以可能叫 fortunes2 更为妥当？
关于 Sys.setlocale("LC_CTYPE", "English")，我平时基本不读入中文的文本文件，这次搞得我很头大。我发现，如果我的 windows 在区域语言里设置格式为 English，那么读入中文 csv 文件时要 read.table(encoding = 'UTF-8')；如果 windows 在区域语言里设置格式为 Chinese，那么要 read.table(fileEncoding = 'UTF-8')。于是我就用了 Sys.setlocale("LC_CTYPE", "English")，一是图省事，二是为了兼容其他语种的 windows 环境。既然其他操作系统没有这个问题，那么我就先判断一下操作系统再执行得了。我的 linux 虚拟机被我折腾得挂掉了，一直没工夫修。
RStudio addin 界面录数据是个好主意，然而我不会做。哪位好汉来？
Cloud2016 论坛的链接居然还能这样？太好了。
依照大家的意见，做了如下修改：
remotes::install_github('pzhaonet/sinx', build = TRUE,
build_opts = c("--no-resave-data", "--no-manual"))sinx() # 一条语录
tanx() # 小动物说语录
ctanx() # 往 ~/.Rprofile 里添加一条代码，在 R 启动时随机显示一条语录
read.sinxs() # 读取语录文件
vignette('sinx') # 语录合集需要多说一下的是，语录文件是可以随意扩展的，只需用 read.sinxs() 一次读入多个文件即可。下面这个例子，将 fortunes 包里的语录合并进来，一起显示：
path_f <- system.file("fortunes/fortunes.csv", package = "fortunes")
path_s <- system.file("sinxs/sinxs.csv", package = "sinx")
ftns <- sinx::read.sinxs(c(path_f, path_s), sep = c(";", ","))
sinx::tanx(sinxs.data = ftns)大家快来往语录集里 PR 啊！tctcab ，上！记得在 DESCRIPTION 里的作者字段添加自己的名字。
试着pull了一条，对github不熟不知道做的对不对【哭笑】
尝试了一下写个爬虫来根据 “https://d.cosx.org/d/420467-sinx-r/12” 这样的地址来生成sinx可用的记录，不过看起来评论内容是由js动态加载的，待我再研究一下rvest和phantomJS
[欢迎提供思路
新增 secx() 函数，直接把语录文件转成 pagedown 或 bookdown 电子书如：<https://www.pzhao.org/book/cosx/> ，或 xaringan 幻灯片如 <https://www.pzhao.org/slides/cosx/> 。以后可以方便地用 excel 写 word 和 ppt 了！
新增六个语录包：
于是：
jinyong <- read.sinxs(lib = 'jinyong')
tanx(sinxs.data = jinyong)
#>
#> -----
#> 一梦如是。
#>
#> --- 金庸 (天龙八部)
#> ------
#> ------
#> \ ^__^
#> \ (oo)\ ________
#> (__)\ )\ /\
#> ||------w|
#> || ||可以合并显示：
libs <- read.sinxs(lib = c("tangshi", "songshi", "chinese", "yangsheng", "english","jinyong"))
tanx(sinxs.data = libs)
#>
#>
#> -----
#> 风吹柳花满店香，吴姬压酒唤客尝。
#> 金陵子弟来相送，欲行不行各尽觞。
#> 请君试问东流水，别意与之谁短长。
#>
#> --- 李白 (金陵酒肆留别)
#> ------
#> \
#> \
#> (.)_(.)
#> _ ( _ ) _
#> / \/`-----'\/ \
#> __\ ( ( ) ) /__
#> ) /\ \._./ /\ (
#> )_/ /|\ /|\ \_( [nosig]详见在线帮助。
日期格式我改了。tctcab
语录库里还有些格式和文本小错误，我懒得挨个查了，欢迎大家 PR 修改，链接在这里。
运行一条 ctanx(lib = 'tangshi')，就会在 ~/Rprofile 里添加一条相应指令，每次启动 R 时就可以读唐诗了。
可以在这个框架下制作各种语录，例如宋词啦、歌词啦、红楼梦选段啦、郭德纲相声……然后拿这些段子来测试 r markdown 的各种包。例如拿 pagedown 把 tangshi 做成一本书：<https://www.pzhao.org/book/tangshi/>
做了个 logo 和体恤衫。
如果以 markdown 的格式接受大家的推荐语录 PR，会不会比 csv 格式更友好？省的考虑斜杠和引号之类的问题了。
所以我把原来的 sinxs.csv 转成了 sinxs.md。原来的 sinxs.csv 改名为 cosxs.csv 备用。包内部自动将 md 和 csv 相互转换。
还弄了个 cscx() 函数，运行它，会往剪贴板里拷一个骨架文本，直接 ctrl + v 来添加新语录。我不知道跟 csv 比起来哪个更方便。
author:
context:
source:
date:
---如果 markdown 比 csv 更方便组织源文件，那这个包就太蠢了，因为它主要干的就是把 csv 里的源文本以像样的格式 如 markdown 展示出来……
不知为何 fortunes 包为何最初以分号分隔的 csv 文件来组织源语录。可能因为开发的时候还没出现 markdown?