R/match_patients.R

In aneuraz/multimodalPhewas: multiWAS

#' match_patients
#' @export
match_patients <- function(cohorte_num, num_type = "cohorte", birth_range = 10, concepts_range=1, n_match=5, match_save, match_save_title, config) {
  

  #control_num <- match_patients(base_url, token, num = cohorte_num, num_type = "cohorte",birth_range = 2, concepts_range = 0.2, n_match = 5)
  control_num <- DWHtools2::match_patients_from_num(num = cohorte_num, num_type = "cohorte",birth_range = birth_range, concepts_range = concepts_range, n_match = n_match, match_save, match_save_title, config = config)
  if(config$backend == "i2b2_oracle" | config$backend == "i2b2_postgres") {
    control_num_type = "cohorte"
  } else {
    control_num_type = 'num_temp'
  }
  
  return(list(contol_num = control_num, control_num_type = control_num_type))
}