新包 sinx：R 语言社区语录

新增 secx() 函数，直接把语录文件转成 pagedown 或 bookdown 电子书如：<https://www.pzhao.org/book/cosx/> ，或 xaringan 幻灯片如 <https://www.pzhao.org/slides/cosx/> 。以后可以方便地用 excel 写 word 和 ppt 了！

新增六个语录包：

• 唐诗 tangshi
• 宋诗 songshi
• 金庸 jinyong
• 中文名言 chinese
• 英文名言 english
• 养生语录 yangsheng

于是：

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 和体恤衫。

tctcab 语录库是从阮一峰的 repo 里抄来的，我拿来练习正则表达式。养生语录我也觉得有点 low。有啥别的高档素材，PR 过来就行。

随机添加一页随机语录的话，幻灯片里直接插一条 sinx() 语句就行了。

如果以 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?