va conversion from ETDRS fails with mixed vectors

[tjebo]

Seems to happen only with mixed vectors of logmar / ETDRS. Current workaround use sapply

library(eye)

x <-  c(0.2, 0.1, 75)
y <-  c("20/60", "6/5", 75)

va_mixed(x, to = "logmar")
#> [1] 0.2 0.1  NA
va_mixed(y, to = "logmar")
#> [1]  0.5 -0.1  0.2

to_logmar(x, from = "etdrs")
#> This doesn't look like etdrs. Could be logmar, snellendec. Picking logmar
#> 1x NA introduced for: 75
#> [1] 0.2 0.1  NA

# workaround for the time being:
sapply(x, to_logmar)
#> From logmar. Could be logmar, snellendec
#> From logmar. Could be logmar, snellendec
#> From etdrs
#> [1] 0.2 0.1 0.2

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

[tjebo]

library(eye)
x <-  c(0.2, 0.1, 75)
y <-  c("20/60", "6/5", 75)
va_mixed(x, to = "logmar")
#> [1] 0.2 0.1 0.2
va_mixed(y, to = "logmar")
#> [1]  0.5 -0.1  0.2
to_logmar(x, from = "etdrs")
#> 2x NA introduced for: 0.2, 0.1
#> [1]  NA  NA 0.2
to_logmar(x, from = "logmar")
#> 1x NA introduced for: 75
#> [1] 0.2 0.1  NA

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