R/add_r__2.R

In trevorlolsen/jaw: Just Another Wrapper

Defines functions add_r__2

Documented in add_r__2

#' add_r__2
#'
#' @param df TODO
#' @param var_name TODO
#'
#' @return TODO

add_r__2 <- function(df, var_name) {
  df[[var_name]] <- seq_len(nrow(df))
  df <- df[c(var_name, setdiff(colnames(df), var_name))]

  return(df)
}