R/Be_internal.R

In qguibert/SimBEL: Un package de calcul du best estimate epargne sous Solvabilite 2

#----------------------------------------------------------------------------------------------------------------------------------------------------
#           Getteur et Setteur et Constructeur grand public
#----------------------------------------------------------------------------------------------------------------------------------------------------

# Getteur
setMethod(
    f = "[",
    signature = "Be",
    definition = function(x, i) {
        switch(EXPR = i,
            "param_be" = {
                return(x@param_be)
            },
            "canton" = {
                return(x@canton)
            },
            "esg" = {
                return(x@esg)
            },
            "base" = {
                return(x@base)
            },
            "tab_flux" = {
                return(x@tab_flux)
            },
            "tab_be" = {
                return(x@tab_be)
            },
            "tab_result" = {
                return(x@tab_result)
            },
            stop("[Be] : Cet attribut n'existe pas!")
        )
    }
)

# Setteur
setReplaceMethod(
    f = "[",
    signature = "Be",
    definition = function(x, i, value) {
        switch(EXPR = i,
            "param_be" = {
                x@param_be <- value
            },
            "canton" = {
                x@canton <- value
            },
            "esg" = {
                x@esg <- value
            },
            "base" = {
                x@base <- value
            },
            "tab_flux" = {
                x@tab_flux <- value
            },
            "tab_be" = {
                x@tab_be <- value
            },
            "tab_result" = {
                x@tab_result <- value
            },
            stop("[Be] : Cet attribut n'existe pas!")
        )
        validObject(x)
        return(x)
    }
)