asthma_cs <- list(
"asthma_narrow" = dplyr::tibble(
"concept_id" = 1,
"excluded" = FALSE,
"descendants" = TRUE,
"mapped" = FALSE
),
"asthma_broad" = dplyr::tibble(
"concept_id" = c(1, 2),
"excluded" = FALSE,
"descendants" = TRUE,
"mapped" = FALSE
)
)
asthma_cs <- newConceptSetExpression(asthma_cs)
print(asthma_cs)
Run the code above in your browser using DataLab