caseveq: A vectorised version of clojR::case (with '==' function)
In alekrutkowski/clojR: Clojure-inspired functions (macros) in R

See https://clojuredocs.org/clojure.core/case.

1	caseveq(obj, ...)

`obj`	An object/value.
`...`	An odd number of expressions. A set of test/expression pairs plus an expression to be evalauted if all tests fail. Equivalent of nested `ifelse(x == a, b, c)` calls, where `x` are elements of the `obj` vector.

caseveq(x,
          Inf,            "infinity",
          as.numeric(NA), "not available",
                          "other")
# Is transformed to:
# ifelse(x == Inf, "infinity",
#        ifelse(x == as.numeric(NA), "not available",
#                                     "other"))