R/numerous_hospital_stays.R

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

numerous_hospital_stays <- function(
  
  data,
  max_stays
  
){
  
  
  id <- data %>%
    select(id_patient) %>% 
    group_by(id_patient) %>% 
    summarise(n_stays=n()) %>% 
    filter(n_stays > max_stays) %>%
    select(id_patient)
  
  return(id)
  
  
}