8

我是 S4 参考类的忠实粉丝，因为它们允许混合编程风格（函数式/按值传递与 oop/按引用传递；示例），从而显着提高灵活性。

但是，当您要求 R 通过方法检索某个字段值时，我认为我只是遇到了一种关于 R 扫描环境/框架的方式的不良行为$field()（请参阅帮助页面）。问题是，如果在实际的本地/目标环境（这将是构成 S4 参考类的环境）中找不到所需的字段，R 似乎也会查看封闭环境/框架，即它就像运行get(<objname>, inherits=TRUE)（参见帮助页）。

实际问题

为了让 R 只在本地/目标环境中查看，我在想类似的东西，$field(name="<fieldname>", inherits=FALSE)但$field()没有一个...参数可以让我传递inherits=FALSE到get()（我猜这在路上的某个地方被称为）。有解决方法吗？

代码示例

对于那些对更多细节感兴趣的人：这是一个说明行为的小代码示例

setRefClass("A", fields=list(a="character"))

x <- getRefClass("A")$new(a="a")

aclass 中有一个字段A，因此在目标环境中找到并返回值：

> x$field("a")
[1] "a"

如果我们尝试访问的字段不是引用类的字段，但恰好与工作区/搜索路径中的某个其他对象的名称相同（在这种情况下"lm"），事情看起来会有所不同：

require("MASS")
> x$field("lm")

function (formula, data, subset, weights, na.action, method = "qr", 
    model = TRUE, x = FALSE, y = FALSE, qr = TRUE, singular.ok = TRUE, 
    contrasts = NULL, offset, ...) 
{
    ret.x <- x
    ret.y <- y

    [omitted]

    if (!qr) 
        z$qr <- NULL
    z
}
<bytecode: 0x02e6b654>
<environment: namespace:stats>

在这一点上并不是我所期望的。恕我直言，一个错误或至少一个警告会好得多。或者打开$field()参数的方法，可以通过.... get()我猜在调用时会调用沿途的某个地方$field()，所以这样的事情可能会阻止上述行为的发生：

x$field("digest", inherits=FALSE)

解决方法：自己的建议

这应该可以解决问题，但也许有一些更优雅的东西不涉及在顶部的新方法的规范$field()：

setRefClass("A", fields=list(a="character"),
    methods=list(
        myField=function(name, ...) {
            # VALIDATE NAME //
            if (!name %in% names(getRefClass(class(.self))$fields())) {
                stop(paste0("Invalid field name: '", name, "'"))
            }
            # //
            .self$field(name=name)
        }
    )
)
x <- getRefClass("A")$new(a="a")

> x$myField("a")
[1] "a"
> x$myField("lm")
Error in x$myField("lm") : Invalid field name: 'lm'
4

1 回答 1

1

默认field()方法可以替换为您自己的。因此，添加一个inherits参数以避免封闭框架只是获取现有x$field定义并添加它的问题......

setRefClass( Class="B",
             fields= list( a="character" ),
             methods= list(
               field = function(name, value, inherits=TRUE ) {
                 if( missing(value) ) {
                   get( name, envir=.self, inherits=inherits )
                 } else {
                   if( is.na( match( name, names( .refClassDef@fieldClasses ) ) ) ) {
                     stop(gettextf("%s is not a field in this class", sQuote(name)), domain = NA)
                   }
                   assign(name, value, envir = .self)
                 }
               }
             ),
)

或者你可以有一个很好的错误信息，稍微重新安排一下

setRefClass( Class="C",
             fields= list( a="character" ),
             methods= list(
               field = function(name, value, inherits=TRUE ) {
                if( is.na( match( name, names( .refClassDef@fieldClasses ) ) ) &&
                      ( !missing(value) || inherits==FALSE) ) {
                  stop(gettextf("%s is not a field in this class", sQuote(name)), domain = NA)
                }

                if( missing(value) ) {
                    get( name, envir=.self, inherits=inherits )
                } else {
                  assign(name, value, envir = .self)
                }
               }
             ),
)

由于您可以定义任何自己的方法来替换默认值，因此几乎可以为您的 refclasses 实现您想要的任何逻辑。如果使用继承获取变量但模式与 c("expression", "name", "symbol", "function") 匹配并且如果它不直接匹配本地 refClass 字段名称则警告可能会出错？

于 2013-06-16T23:08:52.953 回答