如何查看函数的源代码?

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

> 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.function()，它是S3通用的，以便在控制台中写入该函数。

2017-12-26 11:45:54

其他回答

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

> functionBody(functionName)

2017-01-24 16:42:33

当您使用debug()函数进行调试时，它会显示出来。假设您希望看到t()转置函数中的底层代码。仅仅输入“t”，并不能透露太多信息。

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

但是，使用'debug(functionName)'，它会显示底层代码，而不是内部代码。

> debug(t)
> t(co2)
debugging in: t(co2)
debug: UseMethod("t")
Browse[2]> 
debugging in: t.ts(co2)
debug: {
    cl <- oldClass(x)
    other <- !(cl %in% c("ts", "mts"))
    class(x) <- if (any(other)) 
        cl[other]
    attr(x, "tsp") <- NULL
    t(x)
}
Browse[3]> 
debug: cl <- oldClass(x)
Browse[3]> 
debug: other <- !(cl %in% c("ts", "mts"))
Browse[3]> 
debug: class(x) <- if (any(other)) cl[other]
Browse[3]>  
debug: attr(x, "tsp") <- NULL
Browse[3]> 
debug: t(x)

编辑: Debugonce()无需使用undebug()即可实现相同的功能。

2014-08-12 07:01:47

视图(function_name) -例如。视图(mean)请确保使用大写[V]。只读代码将在编辑器中打开。

2017-01-11 02:45:22

您还可以尝试使用print.function()，它是S3通用的，以便在控制台中写入该函数。

2017-12-26 11:45:54

PyCharm中R-plugin的快速解决方案(对于RStudio，请参阅@Arthur Yip的回答)。如果需要，键入并在编辑器或R控制台中选择函数名。然后“转到声明”或使用快捷键CTRL-B或Command-B。注意:这对于. primitive(即内部实现的)函数是没有用的。

2022-07-24 20:23:16

如何查看函数的源代码?

推荐文章

最新文章

标签