R 中的简单 if-else 循环

有人能告诉我 R 中的 if-else 循环有什么问题吗？我经常无法让 if-else 循环工作。我收到错误：

if(match('SubjResponse',names(data))==NA) {
    observed <- data$SubjResponse1
}
else {
    observed <- data$SubjResponse
}

注意data是一个数据框。

错误是

Error in if (match("SubjResponse", names(data)) == NA) { : 
  missing value where TRUE/FALSE needed

这不是完整的示例，因为我们没有数据，但我看到了以下问题：

1. You cannot测试NA with ==， 你需要is.na()
2. 同样，输出match()和朋友通常会测试 NULL 或length()==0
3. 我倾向于写} else {在一条线上。