R/adm_var_renamer.koch6.R

In JayAchar/tbreportr: Tools for Reporting TB Data

#' Admission variable renamer
#'
#' @param x data frame of programmatic TB admission data which
#' has been cleaned with tbcleanr::adm_data_cleanr() and additional
#' variables generated using tbgeneratr::adm_generator()
#' @return data frame with standardised names for variables relevent
#' for the tbreportr package
#' @importFrom assertthat assert_that
#' @seealso \code{\link{tbreportr}}
#' @author Jay Achar 
#' 
#' @export
#'

adm_var_renamer.koch6 <- function(x) {
  
  # Define variables in df to change
  original_names <- c("registrationnb",
                      "gender",
                      "cdhistory",
                      "HIV",
                      "Starttre",
                      "datedeat")
  
  # Check variables are all present in data frame
  assert_that(all(original_names %in% names(x)))
  
  # Define new names
  new_names <- c("unique_id",
                 "gender", 
                 "reg_group", 
                 "hiv_status",
                 "start_dt",
                 "death_dt")
  
  assert_that(length(original_names) == length(new_names))
  
  # Change selected variable names
  names(x)[names(x) %in% original_names] <- new_names
  
  
  x
}