if (FALSE) { # interactive()
daemons(2)
m1 <- mirai({ Sys.sleep(0.2); "one" })
m2 <- mirai({ Sys.sleep(0.1); "two" })
m3 <- mirai({ Sys.sleep(0.3); "three" })
remaining <- list(m1, m2, m3)
while (length(remaining) > 0) {
idx <- race_mirai(remaining)
print(remaining[[idx]]$data)
remaining <- remaining[-idx]
}
daemons(0)
}
Run the code above in your browser using DataLab