# NOT RUN {
data <- data.frame(a = c('m', 'm', 'n', 'n'),
b = c('p', 'p', 'q', 'q'))
metadata <- data.frame(label = c('All', "a=='m'"),
code = c(TRUE, "a=='m'"),
parent = c(0, 1),
color = c("black", "black"),
hidden = c(FALSE, FALSE),
split_var = c('a', NA))
consort_diagram <- consort_from_metadata(metadata, data)
# }
Run the code above in your browser using DataLab