R/init.R

init <- function(class_name, args){
    if (missing(args))
        self <- list()
    else
        self <- args

    class(self) <- c(class(self), class_name)
    return(self)
}
mkmsobieraj/dar documentation built on May 29, 2019, 5:41 a.m.