Nothing
##
## XML-RPC method: getFinalResultsNonBlocking()
##
NgetFinalResultsNonBlocking <- function(obj, convert = TRUE){
if (!(class(obj) == "NeosJob")) {
stop("\nObject 'obj' is not of class 'NeosJob'.\n")
}
call <- match.call()
jobnumber <- obj@jobnumber
password <- obj@password
nc <- obj@nc
ans <- xml.rpc(url = nc@url, method = "getFinalResultsNonBlocking",
.args = list(jobnumber = jobnumber, password = password),
.convert = FALSE, .opts = nc@curlopts, .curl = nc@curlhandle)
if(convert){
tmp <- xmlValue(xmlRoot(xmlParse(ans)))
tmp <- gsub("\\n", "", tmp)
class(tmp) <- "base64"
ans <- base64(tmp)
}
res <- new("NeosAns", ans = ans, method = "getFinalResultsNonBlocking",
call = call, nc = nc)
return(res)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.