Function_4hrs_perf

gistfile1.txt

four_hrs_perf_data_clean <- function(df) {
  
  colname_ct <- function(df, colname){
    df[,colname] = as.POSIXct(df[,colname])
    df
  }
  
  
  df %>%
    dplyr::select("PAT_CODE", "START_DATETIME", "END_DATETIME", "WARD_CODE", "episode.order", "spell.number") %>%
    dplyr::rename(patient_id = PAT_CODE, admission_time = START_DATETIME, discharge_time = END_DATETIME, ward = WARD_CODE, episode_number = episode.order, spell_number = spell.number) %>%
    colname_ct("admission_time") %>%
    colname_ct("discharge_time") %>%
    dplyr::filter(ward == "A&E") %>%
    dplyr::filter(admission_time >= "2015-01-01 00:00:00", admission_time <= "2015-07-27 23:59:00", discharge_time >= "2015-01-01 00:00:00" , discharge_time <= "2015-07-27 23:59:00")
                  
    
}