feat: pass additional information in result to instance (#255)

R/OptimInstance.R

@@ -107,7 +107,9 @@ OptimInstance = R6Class("OptimInstance",
     #'   columns for extra information.
     #' @param y (`numeric(1)`)\cr
     #'   Optimal outcome.
-    assign_result = function(xdt, y) {
+    #' @param ... (`any`)\cr
+    #' ignored.
+    assign_result = function(xdt, y, ...) {
       stop("Abstract class")
     },
 

R/Optimizer.R

@@ -166,19 +166,18 @@ Optimizer = R6Class("Optimizer",
 assign_result_default = function(inst) {
   assert_r6(inst, "OptimInstance")
 
-  res = inst$archive$best()
+  xydt = inst$archive$best()
   ids = inst$search_space$ids()
-  # workaround until ... works
-  if ("internal_tuned_values" %in% names(res)) ids = c(ids, "internal_tuned_values")
-  xdt = res[, ids, with = FALSE]
+  xdt = xydt[, ids, with = FALSE]
 
   if (inherits(inst, "OptimInstanceBatchMultiCrit") || inherits(inst, "OptimInstanceAsyncMultiCrit")) {
-    ydt = res[, inst$archive$cols_y, with = FALSE]
-    inst$assign_result(xdt, ydt)
+    ydt = xydt[, inst$archive$cols_y, with = FALSE]
+    # upstream packages might extract extra columns from xydt
+    inst$assign_result(xdt, ydt, xydt = xydt)
   } else {
     # unlist keeps name!
-    y = unlist(res[, inst$archive$cols_y, with = FALSE])
-    inst$assign_result(xdt, y)
+    y = unlist(xydt[, inst$archive$cols_y, with = FALSE])
+    inst$assign_result(xdt, y, xydt = xydt)
   }
 
   invisible(NULL)

tests/testthat/test_TerminatorStagnationHypervolume.R

@@ -1,4 +1,6 @@
 test_that("TerminatorStagnationHypervolume works", {
+  skip_if_not_installed("emoa")
+
   terminator = trm("stagnation_hypervolume")
   terminator$param_set$values$iters = 5
   terminator$param_set$values$threshold = 0