A checkFunction that checks if v only
contains a single unique value, aside from missing values. This
function is intended for use as a precheck in makeDataReport.
isSingular(v) isEmpty(v)
| v | A variable (vector) to check. All variable types are allowed. |
|---|
A checkResult with three entires:
$problem (a logical indicating whether v contains only one value),
$message (if a problem was found, a message describing which single
value the variable takes and how many missing observations it contains, otherwise
""), and $problemValues (always NULL).
singularVar <- c(rep("a", 10), NA, NA) notSingularVar <- c("a", "a", "b", "c", "d", "e", "f", NA, NA) isSingular(singularVar)#> The variable only takes one (non-missing) value: a. The variable contains 16.67 \% missing observations.isSingular(notSingularVar)#> No problems found.