如何根据条件对值进行子字符串化？

Question

我正在尝试根据条件进行查询。我编写了以下循环：

df$newvars <-  
  if (df$id %% 2 == 0) {
  substr(df$vars, 1, nchar(df$vars) -5)
} else {
  substr(df$vars, 1, nchar(df$vars) -6)
}

但是，我遇到了错误：

  

条件的长度> 1，并且仅使用第一个元素

因此，仅满足我的if语句的一半。有没有一种更有效的方法可以根据条件对值进行子字符串化？