do.call 错误，提供的元素比要替换的元素多用 rlang::invoke 修复[R]

问题描述

在将参数列表（只有一个用于简化）传递给 do.call 时，我收到一个奇怪的错误......它可以通过使用 rlang::invoke 来修复，但我想了解什么是发生在这里。谢谢。

> mydata <- source("https://pastebin.com/raw/bL8ZHvbt")$value
f <- as.formula(paste0("Surv(OS,Death) ~ ",paste(colnames(mydata)[-c(7:8)],collapse = " + ")))

> SurvBoost::boosting_core(formula = f,data = mydata,rate = 0.1)
$call
SurvBoost::boosting_core(formula = f,rate = 0.1)

$coefficients
Double_positive_CD4p_CD8dim      TCD4p_CM_CD127low_PD1n      TCD4p_CM_CD127low_PD1p  TCD4p_CM_CD127p_CD25p_PD1n        TCD4p_CM_CD127p_PD1n 
                 0.15576408                 -0.03984465                 -0.22904226                 -0.03556506                 -0.15901050 
     TCD4p_EM_CD127low_PD1n 
                 0.04126120 

> do.call(SurvBoost::boosting_core,c(list(formula = f,data = as.data.frame(mydata)),list(rate = 0.1)))
Error in names(output)[[1]] <- data_name : 
  more elements supplied than there are to replace

> rlang::invoke(SurvBoost::boosting_core,list(rate = 0.1)))
$call
.fn(formula = `1`,data = `2`,rate = `3`)

$coefficients
Double_positive_CD4p_CD8dim      TCD4p_CM_CD127low_PD1n      TCD4p_CM_CD127low_PD1p  TCD4p_CM_CD127p_CD25p_PD1n        TCD4p_CM_CD127p_PD1n 
                 0.15576408                 -0.03984465                 -0.22904226                 -0.03556506                 -0.15901050 
     TCD4p_EM_CD127low_PD1n 
                 0.04126120 

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）