v <- validator( A %in% c("a1", "a2")
, B %in% c("b1", "b2")
, if (A == "a1") x > 1 # conditional
, if (y > 0) x >= 0 # conditional
, if (A == "a1") B == "b1" # categorical
)
is_conditional(v)
Run the code above in your browser using DataLab