helpers: Little helpers

In marberts/smart: Steve Martin's Assorted R Toolbox

Description

Little helper functions that are often useful.

• distinct() returns the number of unique element in x.

• allNA() tests if all elements of x are NA.

• integer_digits() gives the number of integer digits in a number (i.e., number of digits to the left of the decimal place).

Usage

distinct(x, ...)

allNA(x)

integer_digits(x)

Arguments

x	An R object, usually a vector.
...	Other arguments to pass to unique().

Value

distinct() just calls length(unique(x, ...)), and returns a length 1 numeric with the number of unique elements in x.

allNA() just calls all(is.na(x)), and returns TRUE if all elements of x are NA, FALSE otherwise.

integer_digits() is roughly the same as nchar(abs(trunc(x))), but much faster, and returns a length 1 numeric.

Examples

distinct(1:3)

distinct(c(1:3, NA, NA)) # NAs are lumped together

distinct(c(1:3, NA, NA), incomparables = NA_real_)

integer_digits(-1.5) # same as nchar(abs(trunc(-1.5)))

integer_digits(Inf) # nchar(abs(trunc(Inf))) returns 3

marberts/smart documentation built on March 9, 2021, 5:31 p.m.