make check a bit nicer

mlr-org · Nov 30, 2016 · a1eb197 · a1eb197
1 parent 256a9ca
commit a1eb197
Showing 1 changed file with 1 addition and 4 deletions.
diff --git 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