R/NgetSolverTemplate.R

Defines functions NgetSolverTemplate

Documented in NgetSolverTemplate

##
## NEOS: getSolverTemplate 
##
NgetSolverTemplate <- function(category, solvername, inputMethod,
                               nc = CreateNeosComm()){
    if (!(class(nc) == "NeosComm")) {
        stop("\nObject provided for 'nc' must be of class 'NeosComm'.\n")
    }
    call <- match.call()
    ans <- xml.rpc(url = nc@url, method = "getSolverTemplate",
                   .args = list(category = category, solvername = solvername,
                                inputMethod = inputMethod),
                   .convert = TRUE, .opts = nc@curlopts, .curl = nc@curlhandle)
    xml <- xmlRoot(xmlTreeParse(ans, asText = TRUE))
    res <- new("NeosXml", xml = xml, method = "getSolverTemplate",
               call = call, nc = nc)
    return(res)
}

Try the rneos package in your browser

Any scripts or data that you put into this service are public.

rneos documentation built on April 23, 2020, 9:05 a.m.