merge between compo and ref_strength_standard: few cis are missing
compo <- RomediETL::get_compo_complete(conn)
## référence standardisée de chaque médicament
# https://gitub.u-bordeaux.fr/scossi910e/ehden-bordeaux-mappings/-/issues/3
query <- "SELECT distinct compo.cis, compo.dosageform, typecode, v_refstrength_standard.*
from compo
LEFT JOIN compo_refstrength
ON compo.cis = compo_refstrength.cis AND compo.dosageform = compo_refstrength.dosageform
LEFT JOIN v_refstrength_standard
ON v_refstrength_standard.refstrength = compo_refstrength.refstrength
WHERE compo.refstrength <> ''
"
v_refstrength <- DBI::dbGetQuery(conn, query)
v_refstrength <- unique(v_refstrength)
compo2 <- merge(compo, v_refstrength, by=c("cis","dosageform","typecode"),
all.x = T)
voir <- subset(compo2, is.na(compo2$unit_standard))