在R中为引用类创建初始化方法

Question

我想为R中的引用类对象创建一个初始化方法，该方法将提供缺少参数的默认值。在上面的示例中，引用类对象采用一个数据帧和一些字符串。如果缺少注释字符串，则提供时间戳。

类定义

#' Class SummaryData
#'
#' @description Odd class facilitating creation of data frame with
#'   summary information attached.
#'
#' @slot data data.frame.
#' @slot summary_columns character.
#' @slot info character.
#'
#' @return A SummaryData Class
#' @import methods
#' @exportClass SummaryData
#'
setClass(
    Class = "SummaryData",
    slots = list(
        data = "data.frame",
        summary_columns = "character",
        info = "character"
    )
)

#' Constructor method of SummaryData.
#'
#' @name SummaryData
#' @rdname SummaryData-class
setMethod("initialize", "SummaryData", function(.Object,
                                                data = "data.frame",
                                                summary_columns = "character",
                                                info = "character",
                                                ...)
{
    if (missing(data)) {
        data <- data.frame()
    }
    if (missing(summary_columns)) {
        summary_columns <- character()
    }
    if (missing(info)) {
        info <- paste("Object generated on:", Sys.time())
    }

    validObject(.Object)
    return(.Object)
})

#' Wrapper function SummaryData.
#'
#' @name SummaryData
#' @rdname SummaryData-class
#' @export
SummaryData <- function(...) {
    new("SummaryData", ...)
}

问题

>> SummaryData(data = airquality)
An object of class "SummaryData"
Slot "data":
data frame with 0 columns and 0 rows

Slot "summary_columns":
character(0)

Slot "info":
character(0)

所需结果

• info插槽应包含paste("Object generated on:", Sys.time())

的结果

• data插槽应包含有关airquality数据的信息，即：

  dim(airquality)
  [1] 153   6
  

Answer 1

您需要实际修改对象并调用initialize方法。

setClass(
  Class = "SummaryData",
  slots = list(
    data = "data.frame",
    summary_columns = "character",
    info = "character"
  )
)

# Constructor method of SummaryData.
setMethod("initialize", "SummaryData",
          function(.Object,
                   data,
                   summary_columns,
                   info,
                   ...) {

            if (!missing(data)) {
              .Object@data <- data
            }
            if (!missing(summary_columns)) {
              .Object@summary_columns <- summary_columns
            }
            if (missing(info)) {
              .Object@info <- paste("Object generated on:", Sys.time())
            }else {
              .Object@info <- info
            }

            validObject(.Object)
            return(.Object)
          }
)

# Wrapper function SummaryData.
SummaryData <- function(...) {
  initialize(new("SummaryData"), ...)
}

现在，进行一些测试：

SummaryData(data = airquality, info = "hey")
#Output not shown

SummaryData(data = data.frame(a = 1, b = 2))
#An object of class "SummaryData"
#Slot "data":
#  a b
#1 1 2
#
#Slot "summary_columns":
#character(0)
#
#Slot "info":
#[1] "Object generated on: 2018-12-12 20:21:09"