library(validate)
# non-relaxing clause
rules <- validator( r1 = if (x > 1) y > 3
, r2 = y < 2
)
# y > 3 is always FALSE so r1 can be simplified
simplify_conditional(rules)
# non-constraining clause
rules <- validator( r1 = if (x > 0) y > 0
, r2 = if (x < 1) y > 1
)
simplify_conditional(rules)
rules <- validator( r1 = if (A == "a1") x > 0
, r2 = if (A == "a2") x > 1
, r3 = A == "a1"
)
simplify_conditional(rules)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.