better formating

philchalmers · Jul 8, 2024 · 992b88d · 992b88d
1 parent 9cfe973
commit 992b88d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/R/PBA.R b/R/PBA.R
@@ -214,8 +214,8 @@ PBA <- function(f, interval, ..., p = .6,
         }
         no_root <- (upper[1L] + lower[1L]) != 1L
         if(no_root){
-            msg <- sprintf('supplied interval range appears to be %s the probable root.
-                           Resulting root estimates were [%.3f, %.3f]',
+            msg <- sprintf(paste0('supplied interval range appears to be %s the probable root.',
+                           '\nResulting root estimates were [%.3f, %.3f]'),
                            ifelse(upper[1L] == 0, '*above*', '*below*'),
                            lower[2L], upper[2L])
             old.opts <- options()

diff --git a/R/SimSolve.R b/R/SimSolve.R
@@ -471,6 +471,9 @@ SimSolve <- function(design, interval, b, generate, analyse, summarise,
                      predCI = .95, predCI.tol = NULL, ...){
 
     # robust <- FALSE
+    org.opts <- options()
+    options(warn = 1)
+    on.exit(options(org.opts), add = TRUE)
     if(is.null(control$print_RAM)) control$print_RAM <- FALSE
     burnin.iter <- 15L
     if(is.list(replications)){