目的：有一段代码，后面暂时用不到，但是又很耗时，占了当前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"