fix smoof_example.R and monitor docs

R/makeMonitor.R

@@ -4,8 +4,8 @@
 #' @description
 #' Monitor objects serve for monitoring the optimization process. Each monitor
 #' object expects the parameters \code{before}, \code{step} and \code{after},
-#' each being a function and expecting \code{envir = parent.frame()} as the
-#' only parameter. This way one can access all the variables used within the
+#' each being a function and expecting \code{opt.state} and \code{...} as the
+#' only parameters. This way one can access all the variables used within the
 #' evolutionary cycle.
 #'
 #' @param before [\code{function}]\cr

inst/examples/smoof_example.R

@@ -18,10 +18,10 @@ load_all(".", reset = TRUE)
 
 # Monitoring function. For details on the expected formal parameters
 # see the help pages for makeMonitor and setupConsoleMonitor.
-myMonitorStep = function(envir = parent.frame()) {
-  n.targets = envir$control$n.targets
-  population = envir$opt.state$population
-  task = envir$opt.state$task
+myMonitorStep = function(opt.state, ...) {
+  n.targets = opt.state$control$n.targets
+  population = opt.state$population
+  task = opt.state$task
 
   x = seq(-5, 5, by = 0.05)
   df = data.frame(x = x, y = sapply(x, task$fitness.fun))