checkForRemoteErrors(val):节点产生的错误;所有连接都在使用中
运行对checkForRemoteErrors(val):节点产生的错误;所有连接都在使用中,r,R,运行对parlappy cl <- makeCluster(n_division) parLapply(cl, seq(1, 22), function(indice){ data <- readRDS("data.rds") liste <- unique(data$identif) lapply(liste, function(id){
parlappy
cl <- makeCluster(n_division)
parLapply(cl,
seq(1, 22),
function(indice){
data <- readRDS("data.rds")
liste <- unique(data$identif)
lapply(liste,
function(id){
print(id)
df_id <- data %>%
filter(identif == id)
name_file <- "result.rds"
tryCatch({
result_df <<- MYFUNCTION(df_id) ==> **This function return ERROR**
saveRDS(result_df , name_file )
}, error = function(err){
log_message(err)
})
}
)
})
stopCluster(cl)
clcl您好,您可能需要创建一个,以便我们可以帮助您。在没有更多信息的情况下,我们所能知道的只是在函数中创建的连接(可能是到文件?)失败,该函数用于parlappy
。请通过编辑您的帖子将示例代码添加到您的问题中。你不应该把它作为答案发布。您还应该描述您的输入是什么,提供一个示例数据集,描述您的目标,并提供一个示例输出。请参阅我的其他评论中的链接,以获取有关如何编写一个好问题的示例。
cl <- makeCluster(n_division)
parLapply(cl,
seq(1, 22),
function(indice){
data <- readRDS("data.rds")
liste <- unique(data$identif)
lapply(liste ,
function(id){
print(id)
df_id <- data %>%
filter(identif == id)
name_file <- "result.rds"
tryCatch({
result_df <<- MYFUNCTION(df_id) ==> **This function return ERROR**
saveRDS(result_df , name_file )
}, error = function(err){
log_message(err)
})
}
)
})
stopCluster(cl)