add setupStoppingCondition

NAMESPACE

@@ -30,6 +30,7 @@ export(makePermutationGenerator)
 export(makeStoppingCondition)
 export(makeUniformGenerator)
 export(nullRecombinator)
+export(setupStoppingConditions)
 export(swapMutator)
 import(BBmisc)
 import(ParamHelpers)

R/setupStoppingConditions.R

@@ -0,0 +1,27 @@
+#' Generator for some frequently used stopping conditions.
+#'
+#' Setting up stopping conditions is flexible and straight-forward, but
+#' it needs a lot of writing. This function generates a list of frequently
+#' used stopping conditions with just a single function call.
+#'
+#' @param max.iter [\code{integer(1)}]\cr
+#'   Maximal number of iterations. Default ist \code{Inf}.
+#' @param max.time [\code{integer(1)}]\cr
+#'   Time budget in seconds. Default ist \code{Inf}.
+#' @return [list]
+#' List of \code{ecr_stoppingCondition} objects, which can be passed to \code{ecr}.
+#' @export
+#FIXME: this is not very flexible. What if we add new stopping conditions. In
+# this case we have to change this function every time.
+# The stopping condition generators should have attributes 'checkFunction' and
+# default value (see ecr operators). This way setupStoppingCondition could
+# iterate over all available stopping conditions.
+setupStoppingConditions = function(max.iter = Inf, max.time = Inf) {
+    if (is.infinite(max.iter) && is.infinite(max.time)) {
+        stopf("At least max.iter or max.time must be finite.")
+    }
+    list(
+        makeMaximumIterationsStoppingCondition(max.iter),
+        makeMaximumTimeStoppingCondition(max.time)
+    )
+}

R/stoppingCondition.max.time.R

@@ -4,7 +4,7 @@
 #'   Time budget in seconds. Default ist \code{Inf}.
 #' @return [\code{function}]
 #' @export
-makeMaximumTimeStoppingCondition = function(max.time) {
+makeMaximumTimeStoppingCondition = function(max.time = Inf) {
     assertCount(max.time, positive = TRUE, na.ok = FALSE)
     force(max.time)
 

man/makeMaximumTimeStoppingCondition.Rd

@@ -4,7 +4,7 @@
 \alias{makeMaximumTimeStoppingCondition}
 \title{Stopping condition: time limit.}
 \usage{
-makeMaximumTimeStoppingCondition(max.time)
+makeMaximumTimeStoppingCondition(max.time = Inf)
 }
 \arguments{
 \item{max.time}{[\code{integer(1)}]\cr

man/setupStoppingConditions.Rd

@@ -0,0 +1,25 @@
+% Generated by roxygen2 (4.1.0): do not edit by hand
+% Please edit documentation in R/setupStoppingConditions.R
+\name{setupStoppingConditions}
+\alias{setupStoppingConditions}
+\title{Generator for some frequently used stopping conditions.}
+\usage{
+setupStoppingConditions(max.iter = Inf, max.time = Inf)
+}
+\arguments{
+\item{max.iter}{[\code{integer(1)}]\cr
+Maximal number of iterations. Default ist \code{Inf}.}
+
+\item{max.time}{[\code{integer(1)}]\cr
+Time budget in seconds. Default ist \code{Inf}.}
+}
+\value{
+[list]
+List of \code{ecr_stoppingCondition} objects, which can be passed to \code{ecr}.
+}
+\description{
+Setting up stopping conditions is flexible and straight-forward, but
+it needs a lot of writing. This function generates a list of frequently
+used stopping conditions with just a single function call.
+}
+

tests/testthat/test_setupStoppingConditions.R

@@ -0,0 +1,15 @@
+context("generator for list of stopping conditions")
+
+test_that("generator for list of stopping conditions works well", {
+    # at least on of {max.time, max.iter} must be finite
+    expect_error(setupStoppingConditions())
+
+    scs = setupStoppingConditions(100L, 1e6)
+    expect_is(scs, "list")
+    expect_equal(length(scs), 2L)
+    lapply(scs, function(sc) {
+        expect_is(sc, "ecr_stoppingCondition")
+    })
+
+})
+