十年前连 t.test() 都不知道，求个均值都是这德性

s = 0
for (i in 1:length(x)) {
  s = s + x[i]
}
s/length(x)

等等，R 包长啥样？……

这话可能听着耳熟，没错，它就是 Unix 的设计哲学之一 https://en.wikipedia.org/wiki/Unix_philosophy

Do One Thing and Do It Well

• https://github.com/yihui/animation
• https://github.com/yihui/servr

• 避免代码重复：同一个模块可以在其它函数中重复调用，而不必复制粘贴代码
• 减轻思考压力：每个小函数、模块就像一个数学定理，一旦成型（被证明），你不必再去思考里面的细节，只需要用结论即可（去证明更复杂的定理）
• 便于修改更新：一个函数定义了输入和输出，具体的实现则是可以修改或优化的，每次要修改，只需要改一个小函数，而不必重读 500 行代码
• 便于单元测试：一个大函数里调用的每一个小函数都可以单独测试，出了问题只需要修理小函数

与诗词里用典是同样的道理

测试的基本形式：

if (函数输出 != 预期值) stop('垮了噻！')

• 自己方便：不用一次次在本地跑 R CMD check
• 他人方便：别人给你贡献代码时，系统可以自动检查他/她的代码是否会破坏现有代码的功能（后面“开发社区化”中详谈）

Linux 命令行

• 可能是史上评论最多的一次代码更新：https://github.com/MrMEEE/bumblebee-Old-and-abbandoned/commit/a047be8524

• Wush Wu 大人几年前发给 knitr 的一个合并请求（pull request）：https://github.com/yihui/knitr/pull/324

  【……】那份貢獻對我自己意義比較大，因為那是我第一次成功貢獻別人的專案耶! 感謝益輝大大讓小小我跨出寫open source 的第一步

• 太云主公的 Google Summer of Code 工作：https://github.com/yihui/knitr/pull/317
• 简单的合并请求示例（分分钟合并）：https://github.com/rstudio/rstudioapi/pull/6

• 让所有工作都留下可追溯的痕迹，例如修理八阿哥：https://github.com/yihui/knitr/issues/1081

• Shiny http://shiny.rstudio.com
• htmlwidgets http://htmlwidgets.org
• R Markdown http://rmarkdown.rstudio.com