Rename of the variables function

gistfile1.txt

  # function to select the columns I need

  rename_fct <- function(data, oldnames, newnames){
    data_names <- colnames(data)
    data_names[which(data_names %in% oldnames)] <- newnames
    colnames(data) <- data_names
    data
  }
  
  data <- rename_fct(df, c("PAT_CODE", "WARD_CODE", "START_DATETIME", "END_DATETIME", "AGE_BAND", "SEX",    "episode.order", "spell.end.ward"), 
                         c("IDcol",      "Ward",        "Arrival",     "Discharge",   "AgeBand", "Gender", "EpisodeNumber",     "LastWard"))