天天活在命令行下,需要一些有趣的小命令来调节一下枯燥的生活(其实是需要装装逼)。

![](https://guangchuangyu.github.io/blog_images/R/clifun/Screen Shot 2016-12-12 at 1.42.00 PM.png)

fortune可以随机打印一些「名言」,figlet可以把字母变成ascii图案,而cowsay可以画一只小动物来打印输入的句子,最后是lolcat,让输出变成彩虹色。然后它们的组合,通过管道,让逼格升级。

在R命令行里面呢,fortune有R包,不过名言换成了R社区的「名言」,你可以把fortunes::fortune()加到~/.Rprofile里面,这样每次打开R,都可以随机看到一句「名言」,不过看久了,也会厌烦,因为大量的话都是在吹R有多牛逼、用户有多傻。

‘They’ did write documentation that told you that Perl was needed, but ‘they’ can’t read it for you. – Brian D. Ripley R-help (February 2001

像这种吐槽用户不看文档之类的,我还是挺赞同的😜

cowsay也有个相应的R包,就像fortune是不一样的fortune一样,这个cowsay和命令行的cowsay也是不一样的,行为差不多,但收集的动物是不一样的。

最近我给这个包加了个小恶魔,BSD的logo,我一直比较喜欢。

![](https://guangchuangyu.github.io/blog_images/R/clifun/2016-12-13 09.44.53.png)

比如你每次打开R,可以让R显示一只小动物在讲一句「名言」:

![](https://guangchuangyu.github.io/blog_images/R/clifun/Screen Shot 2016-12-13 at 7.34.13 PM.png)

但对于用figlet和lolcat装逼的人来讲,总还是觉得少了点什么。

所以呢,我写了两个wrapper functions,打包在clifun,分别是figlet和lolcat函数。

于是大家可以在R里装装逼了,特别是你可以加入类似于下面的命令: clifun::lolcat(cowsay::say(clifun::figlet(“YGC”), by=‘fish’, type=‘string’))

到~/.Rprofile里面。

这样子,每次你打开R:

![](https://guangchuangyu.github.io/blog_images/R/clifun/Screen Shot 2016-12-13 at 7.55.48 PM.png)

不一样的欢迎消息,不一样的逼格。