if (<var> == FALSE) ... handled incorrectly (<= 0.3

[edwindj]

This is an edge case, which happens only when a logical variable is used with FALSE.

library(errorlocate)
rules <- validator(if (A == FALSE) x > 0)
data <- data.frame(A = FALSE, x = -1)

This should return an error (but it doesn't):

locate_errors(data, rules)$errors

##          A     x
## [1,] FALSE FALSE

[edwindj]

Fixed in >= 0.3

library(errorlocate)
rules <- validator(if (A == FALSE) x > 0)
data <- data.frame(A = FALSE, x = -1)

This should return an error:

locate_errors(data, rules)$errors

##          A    x
## [1,] FALSE TRUE