if (require(mimic.demo)) {
gluc <- concept("glu",
item("mimic_demo", "labevents", "itemid", list(c(50809L, 50931L))),
description = "glucose", category = "chemistry",
unit = "mg/dL", min = 0, max = 1000
)
is_concept(gluc)
identical(gluc, load_dictionary("mimic_demo", "glu"))
gl1 <- new_cncpt("glu",
item("mimic_demo", "labevents", "itemid", list(c(50809L, 50931L))),
description = "glucose"
)
is_cncpt(gl1)
is_concept(gl1)
conc <- concept(c("glu", "lact"),
list(
item("mimic_demo", "labevents", "itemid", list(c(50809L, 50931L))),
item("mimic_demo", "labevents", "itemid", 50813L)
),
description = c("glucose", "lactate")
)
conc
identical(as_concept(gl1), conc[1L])
}
Run the code above in your browser using DataLab