if (FALSE) { # interactive()
daemons(1, dispatcher = FALSE, .compute = "cpu")
daemons(1, dispatcher = FALSE, .compute = "gpu")
with_daemons("cpu", {
s1 <- status()
m1 <- mirai(Sys.getpid())
})
with_daemons("gpu", {
s2 <- status()
m2 <- mirai(Sys.getpid())
m3 <- mirai(Sys.getpid(), .compute = "cpu")
local_daemons("cpu")
m4 <- mirai(Sys.getpid())
})
s1$daemons
m1[]
s2$daemons
m2[] # different to m1
m3[] # same as m1
m4[] # same as m1
with_daemons("cpu", daemons(0))
with_daemons("gpu", daemons(0))
}
Run the code above in your browser using DataLab