R/add_prefix_to_table_names.R

In peterhurford/surveytools2: Surveytools2 is a collection of R functions that make working with dplyr on survey analysis just a little bit better. Inspired by dplyr and my previous surveytools package.

#' Adds a prefix to the names of a table.
#'
#' @param df dataframe.  The dataframe to change the names of.
#' @param prefix character. The prefix to add to the names.
#' @param except character. A vector of variables to not apply the prefix to.
#' @export
add_prefix_to_table_names <- function(df, prefix, except = NULL) {
  df %>% get_names %>% as.list -> l
  lapply(l, function(x) paste0(prefix, x)) -> names(l)
  l[l %in% except] <- NULL
  df %>% rename_(.dots = l)
}