是否有R函数可检测并行嵌套循环迭代运行的CPU核心？

当然有办法获取当前函数运行的CPU核心，以下是几种实用方案：

1. 使用ps包（跨平台推荐） #

ps包提供了跨平台的进程信息查询能力，能直接获取当前R进程绑定的CPU核心：

• 先安装包：install.packages("ps")
• 在并行任务的函数内部，调用ps::ps_cpu(ps::ps_pid())$cpu即可得到核心编号（注意不同系统编号起始可能不同，部分从0开始，部分从1开始）。

2. 结合parallel包的示例代码 #

以双核心并行嵌套循环为例，在任务函数中嵌入核心检测逻辑：

library(parallel)
library(ps)

# 创建双核心集群
cl <- makeCluster(2)
# 把ps包相关函数导出到集群节点
clusterExport(cl, c("ps", "ps_cpu", "ps_pid"))

# 嵌套循环的任务函数
nested_task <- function(outer_i, inner_j) {
  current_core <- ps_cpu(ps_pid())$cpu
  return(list(outer_iter = outer_i, inner_iter = inner_j, core_used = current_core))
}

# 构造嵌套循环的迭代组合
iter_combinations <- expand.grid(outer = 1:2, inner = 1:5)

# 并行执行所有迭代
results <- parApply(cl, iter_combinations, 1, function(row) {
  nested_task(row[["outer"]], row[["inner"]])
})

# 关闭集群
stopCluster(cl)

# 查看结果
print(do.call(rbind, results))

注意事项 #

• 部分系统中，CPU核心编号从0开始计数，有的从1开始，需根据实际环境判断；
• 如果使用线程级并行（而非进程级），可能需要更细致的线程CPU绑定检测，ps包同样支持线程信息查询。

内容的提问来源于stack exchange，提问作者Mitchell