r语言Error in checkForRemoteErrors(val) 报错

Question

func <- function(i) {
  n2=n1+1
  nt=n1+t1
  RNA_name=rep(colnames(RNA)[i],mi_num)
  x=as.matrix(RNA[1:n1,i])
  y=as.matrix(miRNA[1:n1,])
  mic_n1 <- as.numeric(cstats(x, y, alpha=0.6, C=15, est="mic_approx")[,3]) 
  
  n2=n1+1
  nt=n1+t1
  x=as.matrix(RNA[n2:nt,i])
  y=as.matrix(miRNA[n2:nt,])
  mic_t1 <- as.numeric(cstats(x, y, alpha=0.6, C=15, est="mic_approx")[,3])
  
  f1=data.frame(miRNA=miRNA_name,RNA=RNA_name,
                mic_nor=mic_n1,
                mic_tum=mic_t1,
                stringsAsFactors = FALSE)
  return(f1)
}

i <- 1:ncol(RNA)
cl <- makeCluster(parallel::detectCores() - 1) # Number of cpu cores  cpu内核数
clusterExport(cl,c("RNA","miRNA",'n1','t1','mi_num','miRNA_name'))
clusterEvalQ(cl,library(minerva))
results <- parLapply(cl,i,func) 
res.df <- do.call('rbind',results)
stopCluster(cl)




# Select miRNA_RNA pairs with MIC greater than 0.5 in normal samples or tumor samples
#选择正常样本或肿瘤样本中MIC大于0.5的miRNA_RNA对
res.df=res.df[!duplicated(res.df),]
mic_nor_tum_0.5=res.df[abs(res.df$mic_nor)>0.5|abs(res.df$mic_tum)>0.5,]
print(paste("#features after MIC filtering : ", nrow(mic_nor_tum_0.5),sep=""))

#才开始学各位大佬下面错误这个怎么改啊
#Error in checkForRemoteErrors(val) :  11 nodes produced errors; first error: Not compatible with requested type: [type=character; target=double].
#Error in h(simpleError(msg, call)) : 在为'do.call'函数选择方法时评估'args'参数出了错: object 'results' not found 
#Error: object 'res.df' not found

Answer 1

这个错误通常是由于 R 工作进程崩溃导致的，可能是由于内存不足或发生了诸如核心转储之类的严重问题。这不太可能是由于常规编程错误导致的

第二个错误，可能是因为在 do.call 函数中使用了未定义的变量 results，可以尝试在 do.call 函数之前添加以下代码：results <- NULL