Params-methods.R

#' @rdname getParam
setMethod("getParam", "Params", function(object, name) {
    slot(object, name)
})

#' @rdname setParam
setMethod("setParam", "Params",
          function(object, name, value, checkValid = TRUE) {
    checkmate::assertString(name)
    slot(object, name) <- value
    if (checkValid) {validObject(object)}
    return(object)
})

setMethod("show", "Params", function(object) {

    pp <- list("Global:" = c("(Genes)" = "nGenes",
                             "(Cells)" = "nCells",
                             "[Seed]"  = "seed"))

    cat("A Params object of class", class(object), "\n")
    cat("Parameters can be (estimatable) or [not estimatable],",
        "'Default' or 'NOT DEFAULT'", "\n\n")
    showPP(object, pp)
    cat(length(slotNames(object)) - 3, "additional parameters", "\n\n")
})

setMethod("expandParams", "Params", function(object, vectors, n) {

    update <- list()
    for (parameter in vectors) {
        value <- getParam(object, parameter)
        if (length(value) == 1) {
            update[[parameter]] <- rep(value, n)
        }
    }

    object <- setParams(object, update, checkValid = FALSE)

    return(object)
})