R/clean_cases.R

In patrickwu510/ddiwas: What the Package Does (One Line, Title Case)

#' Remove cases where first ADR date occurred before first simvastatin exposure date
#' Last updated: 2020-06-22
#'
#' @param covariates A tibble
#' @param medications A tibble
#' @param cols_selected A vector
#' @return A list \code{clean_cases_output}
#' @export

clean_cases <- function(covariates, medications, cols_selected) {

  #for cases, remove those patients with first simvastatin ADR date before first simvastatin exposure date.
  covariates_cases <- covariates %>%
    filter(groupc == 1)
  covariates_cases1 <- covariates_cases %>%
    select(all_of(cols_selected)) %>%
    filter(
      .data[[cols_selected[2]]] <= .data[[cols_selected[4]]]
    )
  medications_cases <- medications %>%
    filter(person_id %in% covariates_cases1$person_id)
  medications1 <- medications %>%
    filter(!(person_id %in% covariates_cases$person_id))
  medications <- bind_rows(medications1, medications_cases)
  covariates <- covariates %>%
    filter(person_id %in% medications$person_id)
  clean_cases_output <- list(medications, covariates)

  return(clean_cases_output)
}