From a1eb197d20ec9e4a2d7499b64568236b45b39669 Mon Sep 17 00:00:00 2001 From: Janek Date: Wed, 30 Nov 2016 11:45:30 +0100 Subject: [PATCH] make check a bit nicer --- R/infillOptFocus.R | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/R/infillOptFocus.R b/R/infillOptFocus.R index 32b32a8f6..0cded800f 100644 --- a/R/infillOptFocus.R +++ b/R/infillOptFocus.R @@ -11,11 +11,8 @@ infillOptFocus = function(infill.crit, models, control, par.set, opt.path, desig discrete.vector.pars = filterParams(par.set, type = c("discretevector", "logicalvector")) - all.requirements = extractSubList(par.set$pars, "requires", simplify = FALSE) - all.requirement.vars = unique(unlist(lapply(all.requirements, all.vars))) - if (any(all.requirement.vars %in% getParamIds(discrete.vector.pars))) { + if (any(ParamHelpers:::getRequiredParamNames.ParamSet(par.set) %in% getParamIds(discrete.vector.pars))) stop("Cannot do focus search when some variables have requirements that depend on discrete or logical vector parameters.") - } # perform multiple starts