R/change_names.R

In shortIRT: Procedures Based on Item Response Theory Models for the Development of Short Test Forms

#' Change column names
#'
#' Change the columns names of a data frame and stores the original column names
#'
#' @param data data.frame, A data frame
#'
#' @returns
#' A list of length two:
#'
#' 1. a data frame with the original column names and the corresponding new names
#'
#' 2. a data frame with the changed column names
#' @export
#'
#' @examples
#' # original data frame with 5 columns
#' data <- data.frame(matrix(1:20, nrow = 4, ncol = 5))
#' change_names(data)
change_names <- function(data) {
  item_names = data.frame(old_names = colnames(data),
                          new_names = gsub('[^0-9.-]', "item", colnames(data)))
  colnames(data) = gsub('[^0-9.-]', "item", colnames(data))
  new <- list(item_names = item_names, data = data)
  return(new)
}