R/append_2_prepend.R

In samuelkaminsky/SKTools: SK's Tools

#' append_2_prepend
#' @param df Dataframe
#' @param string String at end to move to beginning
#' @param sep String to insert between prepended string and rest of variable name
#' @return Data frame with corrected column names
#' @description Move string at end of column name to beginning
#' @export

append_2_prepend <-
  function(df, string, sep = "_") {
    df %>%
      purrr::set_names(dplyr::if_else(
        endsWith(names(.), string),
        stringr::str_c(
          string,
          stringr::str_sub(
            names(.),
            start = 1,
            end = as.data.frame(stringr::str_locate(names(.), string))$start - 2
          ),
          sep = sep
        ),
        names(.)
      ))
  }