Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/algorithm/11.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
checkForRemoteErrors(val):节点产生的错误;所有连接都在使用中_R - Fatal编程技术网

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)

cl
cl您好,您可能需要创建一个,以便我们可以帮助您。在没有更多信息的情况下,我们所能知道的只是在函数中创建的连接(可能是到文件?)失败,该函数用于
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)