- 已编辑
新增 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 和体恤衫。