Running this call to parLapply
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)
produces this error
22 nodes produced errors; first error: all connections are in use
Calls: source ... clusterApply -> staticClusterApply -> checkForRemoteErrors
Execution halted
someone already had the same error ?