if (interactive()) {
# Only run examples in interactive R sessions
with(
daemons(2, dispatcher = FALSE),
{
m1 <- mirai(Sys.getpid())
m2 <- mirai(Sys.getpid())
cat(m1[], m2[], "\n")
}
)
status()
}
Run the code above in your browser using DataLab