rneos (version 0.4-0)

NgetFinalResults: XML-RPC method getFinalResults of Neos

Description

This functions calls the XML-RPC method “getFinalResults()” of NEOS, which gets results of a job submitted to NEOS. If the job is still running, then this function will hang until the job is finished.

Usage

NgetFinalResults(obj, convert = TRUE)

Arguments

obj

NeosJob, an object of class NeosJob as returned by the function NsubmitJob.

convert

Logical, if convert = TRUE (the default) the value of the returned XML-RPC result is extracted and returned as character, otherwise the XML-RPC string is returned (base-64 encoded).

Value

An object of class NeosAns.

References

NEOS API: https://neos-server.org/neos/xml-rpc.html

See Also

'>NeosAns and NsubmitJob

Examples

# NOT RUN {
tmp <-NgetSolverTemplate(category = "lp", solvername = "MOSEK",
                         inputMethod = "AMPL")
## setting path to example model and data file
modf <- system.file("ExAMPL", "diet.mod", package = "rneos")
datf <- system.file("ExAMPL", "diet.dat", package = "rneos")
## import of file contents
modc <- paste(paste(readLines(modf), collapse = "\n"), "\n")
datc <- paste(paste(readLines(datf), collapse = "\n"), "\n")
## create list object
argslist <- list(model = modc, data = datc, commands = "",
comments = "")
## create XML string
xmls <- CreateXmlString(neosxml = tmp, cdatalist = argslist)
test <- NsubmitJob(xmlstring = xmls, user = "rneos", interface = "",
id = 0)
NgetFinalResults(obj = test, convert = TRUE)
# }