Implement `consecutive_id.()`

[markfairbanks]

A dplyr interface to data.table::rleid().

consecutive_id. <- function(...) {
  check_dots_unnamed()

  data <- data_frame(..., .name_repair = "minimal")

  rleidv(data)
}