R/updateObject-methods.R

In antoinepari/testRRiceTravis: testRRiceTravis package to make easier the study of the genomic of rice

#' @rdname updateObject-methods
#' @aliases updateObject,Experiment-method
setMethod(
    "updateObject",
    signature = "Experiment",
    def = function(object, attribute, value){
        name_setter = paste("set",
                            toupper(substr(attribute, 1, 1)),
                            substr(attribute, 2, nchar(attribute)),
                            sep = "")
        experiment<- do.call(name_setter, list(experiment, value))
        return(experiment)
    }
)