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