Question

尝试使用rxSetVarInfo更改XDF的变量名称。

我想将几个数据集与常见的var名称合并。（我知道rxMerge可以/将在需要的地方附加到文件名。我希望有更多的控制权。）

这有效：

outLetter<- "A"
exp <- list(pct.A = list(newName = paste0("X.pct.",outLetter)))
rxSetVarInfo(varInfo = exp, data = tempXDFFile)

我知道原始列名pct.A的地方。如果那是动态的怎么办？如果这是一个使用不同的outLetter被多次调用的函数，该怎么办？（＆＃34; A＆＃34;不是硬编码的。）
这不起作用：

function(outLetter){
  exp <- list(paste0("pct.",outLetter) = list(newName = paste0("X.pct.",outLetter)))
  rxSetVarInfo(varInfo = exp, data = tempXDFFile)
}

也不是：

exp <- parse(text = exp)
rxSetVarInfo(varInfo = exp, data = tempXDFFile)

是的，我可以对所有排列进行硬编码。试图找到一种更优雅的方法。

Answer 1

请尝试以下代码：

dynamicName <- function(outLetter){
  exp <- vector(mode="list", length=1)
  names(exp) <- paste0("pct.",outLetter)
  exp[[paste0("pct.",outLetter)]] = list(newName = paste0("X.pct.",outLetter))
  rxSetVarInfo(varInfo = exp, data = tempXDFFile)
}

在调用rxSetVarInfo（）之前，＆＃34; exp＆＃34;包含：

$pct.A
$pct.A$newName
[1] "X.pct.A"

运行你的＆＃34;这适用于＆＃34;我明白了：

> outLetter<- "A"
> exp <- list(pct.A = list(newName = paste0("X.pct.",outLetter)))
>
> exp
$pct.A
$pct.A$newName
[1] "X.pct.A"

希望这有帮助！

请注意，请确保您的动态命名功能可以访问变量＆＃34; tempXDFFile＆＃34;，您可能需要考虑将其作为参数传递，例如：

dynamicName <- function(outLetter, data){
  exp <- vector(mode="list", length=1)
  names(exp) <- paste0("pct.",outLetter)
  exp[[paste0("pct.",outLetter)]] = list(newName = paste0("X.pct.",outLetter))
  rxSetVarInfo(varInfo = exp, data = data)
}

使用rxSetVarInfo更改动态变量名称

1 个答案: