R 语言 | future 包，非阻塞的执行耗时脚本
目的：有一段代码，后面暂时用不到，但是又很耗时，占了当前R session，难道只能等半个小时，等到它结束才能画图？
可以使用R多线程，在支线中执行耗时任务，同时不阻塞当前R进程，可以继续干活。
# 第一步，开启多线程。只能linux系统，必须开多线程
library(future)
plan(multisession, workers = 10) # 设置为多进程模式
# 第二部：定义耗时任务
save_task <- future({
pid=Sys.getpid()
print( paste0("Start ...", pid) )
#save.image("before.RData")
Sys.sleep(10) # 模拟耗时1小时
# 这里保存Rds文件，可能需要花费几十分钟到2个小时
# save.image("end.RData")
print( paste0("End...", pid) )
100 #最后一行是线程的返回值，类似函数的感觉。
})
# 第三步，继续执行其他任务
# 在任务运行时，可以继续执行其他代码，不用等待耗时任务结束
print("正在后台保存文件，可以继续执行其他任务...")
而且可以随时查看支线是否结束，该命令是阻塞的：
> value(save_task )
[1] "Start ...1389"
[1] "End...1389"