R/require_allergy_list.R

Defines functions require_allergy_list

Documented in require_allergy_list

#' Require allergy list during observation window
#' Last updated: 2020-06-22
#'
#' @param str_pl_allergies A string
#' @param observation_period A tibble
#' @return A tibble \code{observation_period}
#' @export

require_allergy_list <- function(str_pl_allergies, observation_period) {

  pl_allergies <- read_csv(str_pl_allergies,
                           col_types = 'dD',
                           col_names = c("person_id", "note_date"),
                           skip = 1)
  observation_period1 <- observation_period %>% select(person_id, start_date, end_date)
  pl_allergies1 <- inner_join(pl_allergies,
                              observation_period1,
                              by = "person_id")
  pl_allergies2 <- pl_allergies1 %>%
    filter((pl_allergies1$start_date <= pl_allergies1$note_date) &
             (pl_allergies1$note_date <= pl_allergies1$end_date))
  observation_period <- observation_period %>%
    filter(person_id %in% pl_allergies2$person_id)

  return(observation_period)
}
patrickwu510/ddiwas documentation built on June 26, 2020, 6:56 a.m.