# \donttest{
if (requireNamespace("nloptr")) {
  search_space = domain = ps(x = p_dbl(lower = -1, upper = 1))
  codomain = ps(y = p_dbl(tags = "minimize"))
  objective_function = function(xs) {
    list(y = as.numeric(xs)^2)
  }
  objective = ObjectiveRFun$new(
    fun = objective_function,
    domain = domain,
    codomain = codomain)
  # We use the internal termination criterion xtol_rel
  terminator = trm("none")
  instance = OptimInstanceSingleCrit$new(
    objective = objective,
    search_space = search_space,
    terminator = terminator)
  optimizer = opt("nloptr", algorithm = "NLOPT_LN_BOBYQA")
  # Modifies the instance by reference
  optimizer$optimize(instance)
  # Returns best scoring evaluation
  instance$result
  # Allows access of data.table of full path of all evaluations
  as.data.table(instance$archive)
}
# }
Run the code above in your browser using DataLab