R/AggregateBySum.r

In schnecki/ranalyse: R-Analyse

#' AggregateBySum. Aggregate by summing.
#'
#' @export AggregateBySum
#' @exportClass AggregateBySum
AggregateBySum <- R6::R6Class(
    classname = "AggregateBySum",
    inherit = AggregateBy,

    ## Properties
    private = list(
        .inputName = NULL,  # character
        .outputName = NULL, # character
        .process = base::sum,
        .getDefaultFunName = function() {
            return("sum")
        }
    ),

    ## Methods
    public = list(
        initialize = function(inputName, as = NULL, columnWise = TRUE, na.rm = TRUE, desc = NULL) {
            super$initialize(inputName, as, columnWise, na.rm, desc)
        }
    ),

    ## Accessable properties. Active bindings look like fields, but each time they are accessed,
    ## they call a function. They are always publicly visible.
    active = list(
    )
)