Calculate the mode, and use original order to break ties

Source: R/panel_consistency.R

mode_order() calculates the mode of a vector, mostly used as the default .resolve option in fixed_force()

mode_order(x)

Arguments

x

Vector to calculate the mode of.

Details

In the case of ties, the first-ordered value in the vector wins.

Examples


x <- c(1, 2, 2, NA, 5, 3, 4)
mode_order(x)
#> [1] 2

# Ties are broken by order
x <- c(2, 2, 1, 1)
mode_order(x)
#> [1] 2