新包 sinx：R 语言社区语录

依照大家的意见，做了如下修改：

• 包名改为 sinx，然而目前我好像没有权限在 cosname 下创建 repo。安装：

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 里的作者字段添加自己的名字。

新增 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?