allow for null

philchalmers · Nov 13, 2024 · 32e4334 · 32e4334
1 parent 4394761
commit 32e4334
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/SimSolve.R b/R/SimSolve.R
@@ -725,7 +725,7 @@ SimSolve <- function(design, interval, b, generate, analyse, summarise,
 summary.SimSolve <- function(object, tab.only = FALSE, reps.cutoff = 300, ...)
 {
     ret <- attr(object, 'roots')
-    if(ret[[1L]]$integer){
+    if(!is.null(ret[[1L]]$integer) && ret[[1L]]$integer){
         stored_tab <- lapply(ret, function(x) attr(x, "stored_tab"))
         stored_tab <- lapply(stored_tab, function(x)
             x[x$reps > reps.cutoff, , drop=FALSE])