#' 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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.