R/VariableBoolean.r

In schnecki/ranalyse: R-Analyse

#' VariableBoolean is a Variable specialised to x being a Boolean. See `base::factor`.
#'
#' @export VariableBoolean
#' @exportClass VariableBoolean
VariableBoolean <- R6::R6Class(
    classname = "VariableBoolean",
    inherit = Variable, # Is a variable

    ## Properties
    private = list(
        .vals = NULL,  # vector<factor>
        .name = NULL   # character
    ),

    ## Methods
    public = list(
        initialize = function(name, vals, desc = NULL) {
            super$initialize(name, vals, 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(
        vals = function(value) {
            if (missing(value)) return(private$.vals)
            if (!(tibble::is_tibble(value) && rhaskell::all(base::is.logical, value)))
                propError("vals", value, getSrcFilename(function(){}), getSrcLocation(function(){}))
            private$.vals <- value
            return(self)
        },
        isBoolean = function() return(TRUE),
        isNumeric = function() return(FALSE)

    )

)