update eye column codes does not work

[tjebo]

deutsch <- data.frame(id = letters[1:8], auge = c("rechts", "links"))
set_eye_strings(eye = "auge", right = "rechts", left = "links")
eyes(deutsch)
 # fails

[tjebo]

Now works.

library(eye)

deutsch <- data.frame(id = letters[1:8], auge = c("rechts", "links"))
set_eye_strings(eye = "auge", right = "rechts", left = "links")
eyes(deutsch)
#> ══ Counts ═══════════════
#>    id  eyes right  left 
#>     8     8     4     4

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