the condition has length > 1 and only the first element will be used
Warning in …. :
the condition has length > 1 and only the first element will be used
comparing a vector with a scalar
=> R automatically takes the first element of var
var = c("A","B","C","D")
if (var %in% c("B", "C")) {...}
if (var == "D")) {...} 
