R/softattr.R

In metno/esd.test: Climate analysis and empirical-statistical downscaling (ESD) package for monthly and daily data.

# For copying non-standard (soft) attributes such as meta data:

# Copy the attributes of x to y
attrcp <- function(x,y,ignore=c("name","model","n.apps","appendix")) {
    ## browser()
                                        #print("attrcp")
    nattr <- softattr(x,ignore=ignore)
    if (length(nattr)>0)
        for (i in 1:length(nattr))
            attr(y,nattr[i]) <- attr(x,nattr[i])
    invisible(y)
}


softattr <- function (x, ignore = NULL) 
{
    ## browser()
    nattr <- names(attributes(x))
    if (sum(is.element(nattr, "names")) > 0) 
        nattr <- nattr[-grep("names", nattr)]
    if (sum(is.element(nattr, "index")) > 0) 
        nattr <- nattr[-grep("index", nattr)]
    if (sum(is.element(nattr, "dim")) > 0) 
        nattr <- nattr[-grep("dim", nattr)]
    if (!is.null(ignore)) {
        for (i in 1:length(ignore)) {
            if (sum(is.element(nattr, ignore[i])) > 0) 
                nattr <- nattr[-grep(ignore[i], nattr)]
        }
    }
    nattr <- nattr[-grep("class", nattr)]
    return(nattr)
}