在R包中创建S3类

Question

我编写的代码非常简单地为包创建了一个S3类。我寻求创建一个新的S3类，以便我可以开发，例如，自定义print()方法。

我已经在一个简单的R脚本中测试了代码，但是一旦函数包装到一个包中，功能就会中断，S3类就不再创建了。我不能为创建包提供可重复的代码，但是下面介绍了我想要构建到包中的函数的一个简化版本。

我的代码在原始编写或在函数中编写时工作得很好。

    x <- 1:10
    class(x)
    class(x) <- append(class(x),"newS3class")

class(x)将返回c("integer", "newS3class")

同样，现在，声明一个做同样事情的函数。这也很好。实际上，我的函数foo()首先对输入执行一些操作，然后用一个新类返回输出。

    foo <- function(y) {
      y <- y + 3
      class(y) <- append(class(y), "newS3class")
      y
    }

class(1:5)返回"integer"。class(foo(1:5))返回c("integer", "newS3class")。这是意料之中的。

但是，当我开发一个包(例如mypkg )，然后运行mypkg::foo()时，功能就会中断。也就是说，(mypkg::foo(1:5))返回“整数”而不是c("integer", "newS3class")。

在从其组成函数构建包的过程中，是否发生了有关范围界定的事情，从而阻止了它的工作？

Answer 1

我在这里犯的错误是我没有正确地导出这个类。为了解决这个问题，在使用roxygen包构建我的文档和命名空间之前，我添加了以下代码块，包括导出行。

#' @export summary.objectclass
makeobjectclass <- function(x) {
    class(x) <- c("objectclass", class(x))
    x
}