powered by
Plyr function id_var packaged due to plyr being retired Numeric id for a vector.
id_var(x, drop = FALSE)