Question

在定义类时，R是否有私有插槽和公用插槽的概念？

如果语言中没有严格的功能，是否有通用的命名方案？

Answer 1

编辑：

给出一点历史记录：在setClass函数中，提供了一个选项'access'来创建所谓的'特权插槽'，这些插槽只能通过随类提供的getter和setter来访问。这将允许创建私有插槽（通过不提供getter），但此功能从未实现过。 ?setClass的帮助页面目前显示为：

访问和版本，包括与S-Plus的兼容性，但是目前被忽略了。

所以没有私有和公共插槽，因为通过@表示法可以访问每个插槽。而且我个人对此非常满意，因为它允许我使用包中包含的getter和setter来使用不易达到的对象的信息。它还允许我通过避免getter和setter创建的开销来节省大量计算。

我不知道在公共和“私人”插槽之间进行区分的任何命名约定。您可以通过在“私有”插槽前加一个点来区分自己，但这对插槽的行为方式没有影响。这也不常见，因为大多数R程序员不关心公共和私人插槽。他们只是不为普通用户不应该提供的插槽提供getter和setter。

举一个简单的例子：下面创建一个带有两个插槽的类，以及一个仅用于一个插槽的getter和setter。

setClass("Example",
  representation(
    aslot = "numeric",
    .ahiddenslot = "character"
  )
)

setGeneric("aslot", function(x) standardGeneric("aslot"))

setMethod("aslot","Example",function(x){
    x@aslot
})

setGeneric("aslot<-", function(x,value) standardGeneric("aslot<-"))

setMethod("aslot<-","Example",function(x,value){
    x@aslot <- value
    x
})

您还可以设置一个show方法，该方法不打印隐藏的插槽：

setMethod("show","Example",function(object){
  cat("Example with value for aslot: ", object@aslot,"\n")
})

这给出了以下正常用途：

> X <- new("Example",aslot=1,.ahiddenslot="b")
> X
Example with value for aslot:  1 
> aslot(X)
[1] 1
> aslot(X) <- 3

但是.ahiddenslot仍然可以访问：

> slot(X,".ahiddenslot")
[1] "b"

R的公共和私人老虎机？

1 个答案: