Generic_analyze_replacement_.R

In muschellij2/oro.nifti: Rigorous - 'NIfTI' + 'ANALYZE' + 'AFNI' : Input / Output

#' @rdname %ff%-methods
#' @aliases %.%<-,anlz-method
#' @export
setMethod("%.%<-", 
          signature(object="anlz"), 
          function(object, value) { 
            if ( "%ff%" %in% slotNames(object) ){
              object@"%ff%" <- value
            } else {
              warning("%ff% is not in slotNames of object")
            }
            return(object)
          })