Deleted spurious stops

AnotherSamWilson · AnotherSamWilson · commit 2f1ff0584b17 · 2018-11-15T01:52:33.000-05:00
diff --git a/R/BayesianOptimization.R b/R/BayesianOptimization.R
@@ -320,7 +320,7 @@ BayesianOptimization <- function(
                          , convThresh = convThresh
                          )
 
-    if (sum(LocalOptims$gradCount > 2) == 0) stop("\n  2a) WARNING - No initial points converged.\n      Process may just be sampling random points.\n      Try decreasing convThresh.")
+    if (sum(LocalOptims$gradCount > 2) == 0) cat("\n  2a) WARNING - No initial points converged.\n      Process may just be sampling random points.\n      Try decreasing convThresh.")
 
     fromCluster <- applyCluster()
     acqMaximums <- rbind(acqMaximums, data.table("Iteration" = Iter, fromCluster$clusterPoints))

Original file line number	Diff line number	Diff line change
`@@ -320,7 +320,7 @@ BayesianOptimization <- function(`
`320`	`320`	`, convThresh = convThresh`
`321`	`321`	`)`
`322`	`322`
`323`		`- if (sum(LocalOptims$gradCount > 2) == 0) stop("\n 2a) WARNING - No initial points converged.\n Process may just be sampling random points.\n Try decreasing convThresh.")`
	`323`	`+ if (sum(LocalOptims$gradCount > 2) == 0) cat("\n 2a) WARNING - No initial points converged.\n Process may just be sampling random points.\n Try decreasing convThresh.")`
`324`	`324`
`325`	`325`	`fromCluster <- applyCluster()`
`326`	`326`	`acqMaximums <- rbind(acqMaximums, data.table("Iteration" = Iter, fromCluster$clusterPoints))`