用于在data.frame中添加列的功能（如果该列尚未包含在其中）

Question

问候，

我目前正在尝试设置一个函数来向数据框添加一个列（如果它尚不存在）。 让我们说列是我想要在我的数据帧中的名称向量。 这是我到目前为止的...由于某些原因，它添加了一个“i”列，就是这样。 我认为问题应该来自函数中i的定义，但我已经尝试了几个更改，但仍然无法正常工作。 任何线索？非常感谢！

add_columns <- function(x){
'%!in%' <- function(u,v)!('%in%'(u,v))
for(i in columns){
if(i %!in% colnames(x)) {
  x$"i" <-100
  return(x)
  }
 }
}