R/stays_selection.R

In jomuller/ITCARES: an Interactive Tool for Case-crossover Analyses of electronic medical REcords for patient Safety

stays_by_diagnoses <- function(data, diagnoses_vector ){
  stays <- data %>%
    select(id_stay, diagnoses) %>% 
    filter(diagnoses %like% regexpr_search(diagnoses_vector)) %>%
    select(id_stay) 
  
  return(stays)
}

stays_by_act <- function(data, procedures_vector){
  stays <- data %>%
    select(id_stay, procedures) %>% 
    filter(procedures %like% regexpr_search(procedures_vector)) %>%
    select(id_stay) 
  
  return(stays)
}

stays_by_years <- function(data, years_vector){
  
  stays <- data %>%
    select(id_stay, year) %>% 
    filter(year %in% years_vector) %>%
    select(id_stay) 
  
  return(stays)
}