import

NAMESPACE

@@ -93,6 +93,7 @@ importFrom(snow,sendCall)
 importFrom(testthat,capture_messages)
 importFrom(testthat,capture_output_lines)
 importFrom(utils,capture.output)
+importFrom(utils,flush.console)
 importFrom(utils,head)
 importFrom(utils,object.size)
 importFrom(utils,packageVersion)

R/PBA.R

@@ -320,7 +320,7 @@ PBA <- function(f, interval, ..., p = .6,
                 cat(sprintf(paste0('; k.tol = %i; Pred = %',
                                    if(integer) ".1f" else ".3f"),
                             k.successes, glmpred0[1L]))
-            flush.console()
+            utils::flush.console()
         }
 
         if(!is.null(wait.time))

R/RobbinsMonro.R

@@ -136,7 +136,7 @@ RobbinsMonro <- function(f, p, ...,
             else
                 cat(sprintf("\rIter: %i; Max change in p = %.3f",
                             i, change))
-            flush.console()
+            utils::flush.console()
         }
         if(i > miniter && all(change < tol)){
             k.succ <- k.succ + 1L

R/SimSolve.R

@@ -190,6 +190,8 @@
 #' @return the filled-in \code{design} object containing the associated lower and upper interval
 #'   estimates from the stochastic optimization
 #'
+#' @importFrom utils flush.console
+#'
 #' @seealso \code{\link{SFA}}
 #'
 #' @export
@@ -629,7 +631,7 @@ SimSolve <- function(design, interval, b, generate, analyse, summarise,
             if(i > 1L) cat("\n")
             cat(sprintf('\n#############\nDesign row %s:\n\n', i))
             print(cbind(as.data.frame(design[i,]), b = b))
-            flush.console()
+            utils::flush.console()
         }
         if(verbose) cat("\n")
 

R/util.R

@@ -96,7 +96,7 @@ print_progress <- function(row, trow, stored_time, RAM, progress,
                     row, trow, replications, RAM, timeFormater_internal(sum(stored_time))))
     cat(sprintf('\n Conditions: %s\n', condstring))
     if(progress) cat('\r')
-    flush.console()
+    utils::flush.console()
     invisible(NULL)
 }