1

我正在寻找仅处理参数列表lapply()的mclapply()唯一元素的版本X。这样的东西已经存在了吗？

编辑：换句话说，我不想lapply()打扰处理重复项，但我想length(lapply(X, ...))等于length(X)，而不是length(unique(X))（以及要匹配的适当值）。另外，我假设 的每个元素X都相当小，因此采用唯一值应该不会太麻烦。

当前行为：

long_computation <- function(task){
  cat(task, "\n")
# Sys.sleep(1000) # 
  return(task)
}
tasks <- rep(LETTERS[1:2], 2)
lapply(tasks, long_computation)

## A
## B
## A
## B
## [[1]]
## [1] "A"
## 
## [[2]]
## [1] "B"
## 
## [[3]]
## [1] "A"
## 
## [[4]]
## [1] "B"

期望的行为：

lapply（任务，long_computation）

## A
## B
## [[1]]
## [1] "A"
## 
## [[2]]
## [1] "B"
## 
## [[3]]
## [1] "A"
## 
## [[4]]
## [1] "B"

您可以在此处找到预期的用例。

4

2 回答 2

0

您可以尝试这样的事情：我创建了一个对象，该对象在每个唯一的“键”map之后存储结果。long_computation一旦遇到现有的“键”，它就会从mapelse 返回它调用该long_computation函数并将结果存储起来map以备将来使用。不确定这是否是理想的方式，但它有效。

tasks <- rep(letters[1:2], 2)
map=list()

lapply(tasks,function(t){if(t %in% names(.GlobalEnv$map)){
    return(.GlobalEnv$map[[t]])
}else{
    result=toupper(t)
        if(!t %in% names(.GlobalEnv$map)){
            .GlobalEnv$map[[t]]=result
        }
    }
})
于 2017-10-31T14:48:21.367 回答
0

这实际上似乎有效：

lightly_parallelize_atomic <- function(X, FUN, jobs = 1, ...){
  keys <- unique(X)
  index <- match(X, keys)
  values <- mclapply(X = keys, FUN = FUN, mc.cores = jobs, ...)
  values[index]
}

就我而言，它X是原子的没关系。

但是找到已经内置在包或 R 中的东西会很好。

于 2017-10-31T14:53:55.367 回答