显示函数源代码的示例

Question

对于R教程，我想展示通过在控制台中输入名称/在Rstudio中按F2来查看函数的源代码是多么容易。 我正在寻找

的功能

- written in R (not using .Call, .External, .Internal etc)
- simple (not calling UseMethod)
- short
- common (in base/stats/graphics etc)
- useful

我目前正在考虑rug，但这已经有了一些if-else级别。有什么更好的想法吗？

plot(density(faithful$eruptions))
rug(density(faithful$eruptions))
rug

（当然，我会在第二步中引用https://github.com/wch/r-source/blob/trunk/src/library/graphics/R/rug.R，例如How can I view the source code for a function?）