Nothing
#' @method getJobInfo ExperimentRegistry
#' @export
getJobInfo.ExperimentRegistry = function(reg, ids, pars = FALSE, prefix.pars = FALSE, select, unit = "seconds") {
syncRegistry(reg)
assertFlag(pars)
columns = c(id = "job_id", prob = "prob_id", algo = "algo_id", repl = "repl")
if (pars)
columns = c(columns, c(prob.pars = "prob_pars", algo.pars = "algo_pars"))
tab = getJobInfoInternal(reg, ids, select, unit, columns)
# unserialize parameters
if (pars) {
if (!is.null(tab$prob.pars)) {
pars = convertListOfRowsToDataFrame(lapply(tab$prob.pars, function(x) unserialize(charToRaw(x))), strings.as.factors = FALSE)
if (prefix.pars)
names(pars) = sprintf("prob.par.%s", names(pars))
tab = cbind(subset(tab, select = setdiff(names(tab), "prob.pars")), pars)
}
if (!is.null(tab$algo.pars)) {
pars = convertListOfRowsToDataFrame(lapply(tab$algo.pars, function(x) unserialize(charToRaw(x))), strings.as.factors = FALSE)
if (prefix.pars)
names(pars) = sprintf("algo.par.%s", names(pars))
tab = cbind(subset(tab, select = setdiff(names(tab), "algo.pars")), pars)
}
}
return(tab)
}
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.