#Create first flowchart for patients
fc1 <- clinic_patient |>
dplyr::filter(!is.na(group)) |>
as_fc(label = "Patients included") |>
fc_split(group)
#Create second flowchart for visits
fc2 <- clinic_visit |>
dplyr::filter(!is.na(group)) |>
as_fc(label = "Number of visits") |>
fc_split(group)
list(fc1, fc2) |>
fc_merge() |>
fc_draw()
Run the code above in your browser using DataLab