You could have a look at the function simmer:::print.simmer to see which items to 'corral' :
simmer:::print.simmer
function (x, ...)
{
cat(paste0("simmer environment: ", x$name, " | now: ",
now(x), " | next: ", peek(x), "\n", "{ Monitor: ",
x$mon$name, " }\n"))
for (name in names(x$mon$handlers)) cat(paste0(" { ",
name, ": ", x$mon$handlers[[name]], " }\n"))
for (name in names(x$resources)) cat(paste0("{ Resource: ",
name, " | monitored: ", x$resources[[name]][["mon"]],
" | server status: ", get_server_count(x, name),
"(", get_capacity(x, name), ")", " | queue status: ",
get_queue_count(x, name), "(", get_queue_size(x,
name), ") }\n"))
for (name in names(x$sources)) cat(paste0("{ Source: ",
name, " | monitored: ", x$sources[[name]][["mon"]],
" | n_generated: ", get_n_generated(x, name), " }\n"))
for (name in names(x$globals)) {
value <- x$globals[[name]]
is_schedule <- inherits(value, "schedule")
if (is_schedule)
value <- value$schedule$init
cat(paste0("{ Global: ", name, " | schedule: ",
is_schedule, " | initial value: ", value, " }\n"))
}
invisible(x)
}
<bytecode: 0x000001d34a12a2a8>
<environment: namespace:simmer>
>