R/append_colname_prefix.R

In nelsonroque/ruf: An R Package of Random, but Useful Functions (RUF)

#' ruf
#' @name append_colname_prefix
#' @export
#' @import tidyverse
#' @examples
#' append_colname_prefix(data, group_var, var_prefix)
append_colname_prefix <- function(data, group_var, var_prefix) {
  len_group_var = length(group_var)
  names(data)[(len_group_var + 1):ncol(data)] <- paste0(var_prefix, ".", names(data)[(len_group_var + 1):ncol(data)])
  return(data)
}