trickery

philchalmers · Nov 14, 2024 · f323a7c · f323a7c
1 parent b32b7a9
commit f323a7c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/SimSolve.R b/R/SimSolve.R
@@ -694,7 +694,7 @@ SimSolve <- function(design, interval, b, generate, analyse, summarise,
         tab <- .SIMDENV$stored_history[!sapply(.SIMDENV$stored_history, is.null)]
         if(ReturnSimSolveInternals) return(tab)
         attr(roots[[i]], 'stored_tab') <- if(integer) reduceTable(tab) else tab
-        if(verbose){
+        if(verbose > 0 && verbose < 2){
             cat("\r")
             tmp <- as.data.frame(design[i,])
             cat(sprintf(paste0("\nSolution for %s: %", if(integer) ".1f" else ".3f"),