如何查看函数的源代码?

我想看看一个函数的源代码，看看它是如何工作的。我知道我可以通过在提示符处输入它的名称来打印一个函数:

> t
function (x) 
UseMethod("t")
<bytecode: 0x2332948>
<environment: namespace:base>

在这种情况下，UseMethod(“t”)是什么意思?我如何找到实际正在使用的源代码，例如:t(1:10)?

当我看到UseMethod和当我看到standardGeneric和showMethods之间有区别吗?

> with
standardGeneric for "with" defined from package "base"

function (data, expr, ...) 
standardGeneric("with")
<bytecode: 0x102fb3fc0>
<environment: 0x102fab988>
Methods may be defined for arguments: data
Use  showMethods("with")  for currently available ones.

在其他情况下，我可以看到R函数正在被调用，但我找不到这些函数的源代码。

> ts.union
function (..., dframe = FALSE) 
.cbind.ts(list(...), .makeNamesTs(...), dframe = dframe, union = TRUE)
<bytecode: 0x36fbf88>
<environment: namespace:stats>
> .cbindts
Error: object '.cbindts' not found
> .makeNamesTs
Error: object '.makeNamesTs' not found

我如何找到像.cbindts和.makeNamesTs这样的函数?

在其他情况下，有一些R代码，但大部分工作似乎是在其他地方完成的。

> matrix
function (data = NA, nrow = 1, ncol = 1, byrow = FALSE, dimnames = NULL) 
{
    if (is.object(data) || !is.atomic(data)) 
        data <- as.vector(data)
    .Internal(matrix(data, nrow, ncol, byrow, dimnames, missing(nrow), 
        missing(ncol)))
}
<bytecode: 0x134bd10>
<environment: namespace:base>
> .Internal
function (call)  .Primitive(".Internal")
> .Primitive
function (name)  .Primitive(".Primitive")

我如何找到。primitive函数做什么?类似地，一些函数调用. c、. call、. fortran、. external或. internal。我怎样才能找到它们的源代码?

当前回答

要查看函数的源代码，请使用print()

f <- function(x){
     x * 2
 }

print(f)

function(x){
    x * 2
}

2021-08-10 07:48:03

其他回答

只要函数是用纯R而不是C/ c++ /Fortran编写的，就可以使用以下方法。否则，最好的方法是调试和使用“jump into”:

> functionBody(functionName)

2017-01-24 16:42:33

我不知道这是如何融入主要答案的，但它难住了我一段时间，所以我在这里添加了它:

中缀操作符

要查看一些基本中缀操作符(例如，%%，%*%，%in%)的源代码，请使用getAnywhere，例如:

getAnywhere("%%")
# A single object matching ‘%%’ was found
# It was found in the following places
#   package:base
#   namespace:base
#  with value
#
# function (e1, e2)  .Primitive("%%")

主要的答案包括如何使用镜子来深入挖掘。

2015-12-01 20:18:10

在R编辑中有一个非常方便的函数