R/order_indices.R

In toddellis/miao: Miao! Miauw! Miaow! Miaou! Mjau! Meow!

#' order_indices
#'
#' Tweak of `dplyr`'s group_indices allowing for retaining the original order.
#'
#' @param x Vector to create group indices from.
#'
#' @return Numeric indices for input group variable.
#'
#' @export
#'
#' @examples
#' \dontrun{
#'
#' }
#'

order_indices <- function(x) {

  dplyr::group_indices(.,
                       factor(x,
                              levels = unique(x)))

}