r - 如何从另一个包中仅导入一个函数，而不加载整个命名空间

Question

假设我正在开发一个名为 foo 的包，它希望使用 memisc 包中的 description 函数。我不想导入整个 memisc 命名空间，因为:

1. 这很糟糕
2. memisc 覆盖了基本的 aggregate.formula 函数，这会破坏一些东西。例如，example(aggregate) 会惨败。

该软件包包含以下文件:

描述

Package: foo
Version: 0.0
Title: Foo
Imports:
    memisc
Collate:
    'foo.R'

命名空间

export(bar)
importFrom(memisc,description)

R/foo.R

##' bar function
##'
##' @param x something
##' @return nothing
##' @importFrom memisc description
##' @export

`bar` <- function(x) {
    description(x)
}

我认为使用 importFrom 不会加载整个 memisc 命名空间，而只会加载 namespace::description，但这不是案子。从普通 R 开始:

R> getS3method("aggregate","formula")
## ... function code ...
## <environment: namespace:stats>
R> library(foo)
R> getS3method("aggregate","formula")
## ... function code ...
## <environment: namespace:memisc>
R> example(aggregate)
## Fails

那么，您知道如何从 memisc 导入 description 函数，而无需在我的环境中获取 aggregate.formula 吗？

Answer 1

你不能。

如果您在 Imports: 字段中声明 memisc，则加载包时将加载命名空间，并且您的包可以找到导出的对象。 (如果您在Depends:中指定它，则命名空间将被加载并附加到搜索路径，这使得导出的对象可以通过任何代码找到。)

加载命名空间的一部分是使用泛型注册方法。 (我查看了，但找不到说明这一点的规范文档；我将诉诸函数在 NAMESPACE 文件中声明为 S3 方法的事实作为证据。)定义的方法与泛型并且具有泛型函数的可见性(或者可能是泛型函数的命名空间)。

通常，包将为它创建的泛型或它定义的类定义一个方法。 S3 对象系统没有正式定义 S3 类(或创建该类的包)的机制，但总体思路是，如果该包定义了返回具有该类属性的对象的函数(并且是唯一一个确实)，该类是该包的类。如果这两个条件满足的话，就不会有问题。如果泛型是在包中定义的，则只有附加包才能找到；如果该类是在包中定义的，则该类的对象仅在附加并使用该包时才存在(并因此被分派(dispatch))。

在 memisc 示例中，两者都不成立。 aggregate 泛型在 stats 包中定义，formula 对象也在 stats 包中定义(基于在定义 as.formula、[.formula 等的包上)，因为它既不是 memisc 的泛型，也不是 memisc 的对象，如果只是加载但未附加 memisc，甚至可以看到效果(以及分派(dispatch)到的方法)。

有关此问题的另一个示例，但使用 reorder.factor，请参阅 Reordering factor gives different results, depending on which packages are loaded .

一般来说，向包不控制对象或泛型的泛型添加方法并不是一个好习惯；如果它覆盖核心包中的方法，则加倍如此；如果它不是核心包中现有函数的向后兼容函数，那就太糟糕了。

对于您的示例，您最好将 memisc::describe 的代码复制到您的包中，尽管这种方法有其自身的问题和警告。