R中的GetAnywhere函数

Question

如何在R函数中看到R的底层代码：

我试过了：

  getAnywhere('sum')

但只能回来：

          function (..., na.rm = FALSE)  .Primitive("sum")

现在好运？

谢谢。