r - 将可用的包方法及其源代码保存在文本文件中
问题描述
我们可以通过在控制台中输入方法名称来查看方法的源代码,如下例所示
> rowMeans
function (x, na.rm = FALSE, dims = 1L)
{
if (is.data.frame(x))
x <- as.matrix(x)
if (!is.array(x) || length(dn <- dim(x)) < 2L)
stop("'x' must be an array of at least two dimensions")
if (dims < 1L || dims > length(dn) - 1L)
stop("invalid 'dims'")
p <- prod(dn[-(id <- seq_len(dims))])
dn <- dn[id]
z <- if (is.complex(x))
.Internal(rowMeans(Re(x), prod(dn), p, na.rm)) + (0+1i) *
.Internal(rowMeans(Im(x), prod(dn), p, na.rm))
else .Internal(rowMeans(x, prod(dn), p, na.rm))
if (length(dn) > 1L) {
dim(z) <- dn
dimnames(z) <- dimnames(x)[id]
}
else names(z) <- dimnames(x)[[1L]]
z
}
<bytecode: 0x0000000021b2fec8>
<environment: namespace:base>
但我想一个接一个地列出包中可用的所有方法名称及其源代码。
解决方案
以下为您提供命名空间中的所有函数(包括未导出的函数):
ns = asNamespace('testthat')
function_code = eapply(ns, function (f) if (is.function(f)) capture.output(f))
ns_code = paste(
names(function_code),
lapply(function_code, paste, collapse = '\n'),
sep = ' = '
)
writeLines(ns_code, filename)
如果您只想捕获导出的函数,那么您需要添加一个额外的步骤,在该步骤中您可以通过符号是否出现来过滤它们getNamespaceExports(ns)
:
exports = mget(getNamespaceExports(ns), ns, inherits = TRUE)
function_code = lapply(exports, function (f) if (is.function(f)) capture.output(f))
…
推荐阅读
- python - Python - %s 必须是从 MongoDB 查询的 dict、bson.son.SON 的实例
- python - 简单 Python 列表程序的惊人输出
- r - 无法在 R 中为 ggplot 创建图例
- json - Jolt 转换 - 基于 id 对元素进行分组
- javascript - 复制 Mongoose 文档对象
- c++ - 检测继承的函数是否被覆盖
- c# - 未指定连接字符串 C# & 初始化错误
- javascript - 完成待办事项列表中的所有任务
- oracle - AWS Oracle RDS DATA_PUMP_DIR 清理
- nvidia - 正确创建 Optix 7.1 TLAS 实例加速结构