基于R中的ifelse语句在循环内创建新列。

Question

当我尝试根据循环中的ifelse语句创建新列时，我没有得到预期的结果。新列中的数据仅基于循环中的某些列而不是所有列。为什么会这样，如何使新列中的数据基于循环中的所有信息？这是我尝试的可重现的示例，实际上我的数据框包含超过500列：

a <- 5
match_with(a,
  . %>% some(.),          print,
  none,                   function() print("Error!")
)