类似于pthread的函数

Question

我想用R做一些多线程。我已经习惯了C pthread功能。 我想做的是：

#initialisation
n=10
A <- numeric(n)

i=c(1:n/2)

# compute some indexes using the one function fun1
# equivalent in C with correct initialisation of t1 and attr: 
## pthread_create(&t1, &attr, fun1, i)
A[i] <- fun1(length(i))

# compute other indexes using another function fun2
# equivalent in C with correct initialisation of t2 and attr: 
## pthread_create(&t2, &attr, fun2, i)
A[-i] <- fun2(n-length(i))

# wait for the thread to finish
# equivalment in C:
## pthread_join(t1); pthread_join(t2)

# do something with the result
A

这两个函数fun1和fun2是完全独立的，我认为使用fork()是不合适的，因为我想在完成下一步之前等待所有线程完成。 得到2个函数fun1和fun2 。

Answer 1

• 你在i循环吗？ 如果是，那么您还可以分别为每个i分别评估fun1和fun2吗？ 在那种情况下，使用foreach包和并行后端（如doMC在i构造一个循环。 喜欢

   require(foreach) require(doMC) A <- foreach( i = 1:(n/2), .combine=rbind) %dopar% {c(fun1(i),fun2(i))} 

• 否则，构造一个伪函数，您将传递给它一个开关，告诉它要运行哪个fun1 fun2

   switchingFun <- function( .., selFun=1){ if(selFun == 1){ fun1( ...)} else {fun2(... ) } 

  还要构造一个包含fun1和fun2的列表。 并将其放入foreach( selFun in 1:2) %dopar% {switchingFun( arguments[[selFun]], selFun)}循环中。 （ ...非常有用，我只是尝试了一下！）

  您将/ might //应该看一下您调用的函数，您可能需要对参数列表做一些事情，然后才能在switchingFun函数中传递参数（获取正确的类型，解开它...）。

• A[-i]将（可能）无法按照您想要的方式工作。 在R中，说A[-i]选择所有未被 i索引的元素。