tests/tests-verifs/Verif-01-structures.R

In INESSS-QC/admissibilite1: Admissibilité des individus

library(rmarkdown)
library(admissibilite1)
library(data.table)

DT <- readRDS("V:/GI-Data/_ADMIS/R data/Données Brutes/cohorte_admis_RQAM_2020-01-28.rds")
setkey(DT, ID, DDP)
DT_struct <- import_struct(
  database = "RQAM",
  DebutEtude = "2001-04-01", FinEtude = "2019-03-31",
  id_list = NULL
)
setkey(DT_struct, ID, DDP)

# Tous les ID ----------------------------------------------------------------------------------------------------------------------

dt_admis <- admis_analyse(DT_struct)
for(id in sample(sunique(DT$ID), 20)){
  render(
    input = paste0(getwd(),"/tests/tests-verifs/Verif-01-structures.Rmd"),
    output_format = "pdf_document",
    output_file = paste0("Verif-01-structures-ID",id,".pdf"),
    output_dir = "V:/GI-Data/_ADMIS/tests-fcts/Table Cohorte Par ID",
    params = list(DT = DT,
                  dt_struct = DT_struct,
                  dt_admis = dt_admis,
                  id = id)
  )
}

# ID avec SLD ----------------------------------------------------------------------------------------------------------------------

id_sld <- sunique(DT[!is.na(DDsld)]$ID)
dt_struct <- DT_struct[ID %in% id_sld]
dt_admis <- admis_analyse(dt_struct)
for(id in sample(id_sld, 20)){
  render(
    input = paste0(getwd(),"/tests/tests-verifs/Verif-01-structures.Rmd"),
    output_format = "pdf_document",
    output_file = paste0("Verif-01-structures-SLD-ID",id,".pdf"),
    output_dir = "V:/GI-Data/_ADMIS/tests-fcts/Table Cohorte Par ID",
    params = list(DT = DT,
                  dt_struct = dt_struct,
                  dt_admis = dt_admis,
                  id = id)
  )
}

# ID avec 6 obs+ -------------------------------------------------------------------------------------------------------------------

id_6obs <- sunique(DT[DT[, .I[.N >= 6], .(ID)]$V1]$ID)
dt_struct <- DT_struct[ID %in% id_6obs]
dt_admis <- admis_analyse(dt_struct)
for(id in sample(id_6obs, 20)){
  render(
    input = paste0(getwd(),"/tests/tests-verifs/Verif-01-structures.Rmd"),
    output_format = "pdf_document",
    output_file = paste0("Verif-01-structures-6obs-ID",id,".pdf"),
    output_dir = "V:/GI-Data/_ADMIS/tests-fcts/Table Cohorte Par ID",
    params = list(DT = DT,
                  dt_struct = dt_struct,
                  dt_admis = dt_admis,
                  id = id)
  )
}