diff --git a/R/SimCollect.R b/R/SimCollect.R index ab9bf8d..7ccc04b 100644 --- a/R/SimCollect.R +++ b/R/SimCollect.R @@ -23,7 +23,8 @@ #' \code{SimExtract(what='results')} information. This is mainly useful when RAM is an issue #' given simulations with many stored estimates. Default includes the results objects #' in their entirety, though to omit all internally stored simulation results pass the -#' character \code{'NONE'} +#' character \code{'NONE'}. To investigate the stored warnings and error messages in isolation +#' pass \code{'WARNINGS'} or \code{'ERRORS'}, respectively #' #' @param check.only logical; for larger simulations file sets, such as those generated by #' \code{\link{runArraySimulation}}, return the design conditions that do no satisfy the @@ -145,6 +146,9 @@ #' sim <- SimCollect('sim_files/') #' sim #' +#' # view list of error messages (if there were any raised) +#' SimCollect('sim_files/', select = 'ERRORS') +#' #' SimClean(dir='sim_files/') #' #' } @@ -189,12 +193,15 @@ SimCollect <- function(dir=NULL, files = NULL, filename = NULL, tmp <- try(readRDS(filenames[i]), TRUE) if(is(tmp, 'try-error')) stop(c('Could not read file ', filenames[i])) - readin[[i]] <- subset_results(tmp, select=select) + readin[[i]] <- if(!is.null(select) && select %in% c('ERRORS', 'WARNINGS')){ + SimExtract(tmp, what=tolower(select)) + } else subset_results(tmp, select=select) if(gc){ rm(tmp) gc() } } + if(!is.null(select) && select %in% c('ERRORS', 'WARNINGS')) return(readin) extra_info1 <- attr(readin[[1L]], 'extra_info') ncores <- sum(sapply(readin, function(x) attr(x, 'extra_info')$ncores)) extra_info1[c("seeds", "date_completed", "summarise_list", "stored_results", diff --git a/man/SimCollect.Rd b/man/SimCollect.Rd index b7e6131..a58f66c 100644 --- a/man/SimCollect.Rd +++ b/man/SimCollect.Rd @@ -34,7 +34,8 @@ then the results will only be returned in the R console.} \code{SimExtract(what='results')} information. This is mainly useful when RAM is an issue given simulations with many stored estimates. Default includes the results objects in their entirety, though to omit all internally stored simulation results pass the -character \code{'NONE'}} +character \code{'NONE'}. To investigate the stored warnings and error messages in isolation +pass \code{'WARNINGS'} or \code{'ERRORS'}, respectively} \item{check.only}{logical; for larger simulations file sets, such as those generated by \code{\link{runArraySimulation}}, return the design conditions that do no satisfy the @@ -151,6 +152,9 @@ SimCollect('sim_files/', check.only = TRUE, target.reps=1000) sim <- SimCollect('sim_files/') sim +# view list of error messages (if there were any raised) +SimCollect('sim_files/', select = 'ERRORS') + SimClean(dir='sim_files/') }