eyes - eye column not recognised if another column has _eye in their name

[tjebo]

library(eye)

id <- c(letters[sample(20)], letters[sample(20)])
foo <- data.frame(id, eyes = c("r", "l"))
foo$toldyou_eye <- "r"
eyes(foo)
#> Warning: Please define eye column
#> NULL

^{Created on 2021-03-08 by the reprex package (v1.0.0)}

[tjebo]

This is currently by design, but not really very desired. eyes should give precedence to columns that are simply called "eyes" or "eye". Now you have to specify the eye column:

eyes(foo, eye = "eyes")
#> patients     eyes    right     left 
#>       20       28       14       14