R/get.result.R

In optplus: A wrapper for optimization methods (function minimization with at most bounds and masks).

##################################################################
get.result <- function(optimx.obj, method = NULL, 
    attribute = NULL) {
    # optimx.obj = object returned by `optimx'
    # method = method for which all results are desired (e.g.
    #   `spg')
    # attribute = type of result desired for all methods (e.g.
    #   `fvalues')
    #
    cat("optimx.obj:\n")
    print(optimx.obj)
    print(attributes(optimx.obj))
    if (!is.null(attribute) & is.null(method)) { # ?? should it be &&?
        cat("attribute:")
        print(attribute)
        allattr <- names(optimx.obj)[!(names(optimx.obj) %in% 
            "method")]
        cat("allattr:")
        print(allattr)
        cat("names in optimx.obj:")
        print(names(optimx.obj))
        attrib <- unique(match.arg(attribute, allattr, several.ok = TRUE))
        # ???problem here!!
        sel.attr <- names(optimx.obj) %in% attrib
        ret <- cbind(optimx.obj["method"], optimx.obj[sel.attr])
        ord <- rev(order(unlist(ret[, 2])))
        ret <- ret[ord, ]
    }
    
    if (is.null(attribute) & !is.null(method)) {
        method <- unique(match.arg(method, unlist(optimx.obj$method), 
            several.ok = TRUE))
        sel.meth <- optimx.obj$method %in% method
        ret <- sapply(optimx.obj, function(x) x[sel.meth])
    }
    
    if (!is.null(attribute) & !is.null(method)) {
        warning("You cannot specify both `method' and `attribute' \n")
        ret <- NULL
    }
    
    if (is.null(attribute) & is.null(method)) {
        warning("You must specify one of `method' or `attribute' \n")
        ret <- NULL
    }
    
    return(ret)
}

##################################################################