flush

R/PBA.R

@@ -320,6 +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()
         }
 
         if(!is.null(wait.time))

R/RobbinsMonro.R

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

R/SimSolve.R

@@ -629,6 +629,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()
         }
         if(verbose) cat("\n")
 
@@ -697,6 +698,7 @@ SimSolve <- function(design, interval, b, generate, analyse, summarise,
             cat(sprintf(paste0("\nSolution for %s: %", if(integer) ".1f" else ".3f"),
                 colnames(design)[which(is.na(tmp))], roots[[i]]$root))
             if(verbose && i == nrow(design)) cat("\n\n")
+            flush.console()
         }
         if(save && i < nrow(design)) saveRDS(roots, tmpfilename)
     }

R/util.R

@@ -96,6 +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()
     invisible(NULL)
 }