####Example 1####
###create fhir_table_descriptions first
#see ?fhir_table_description for explanation
pat <- fhir_table_description(
resource = "Patient",
cols = c(
id = "id",
name = "name/family",
gender = "gender"
),
sep = "||",
brackets = c("[", "]"),
rm_empty_cols = FALSE
)
meds <- fhir_table_description(resource = "MedicationAdministration")
###create design
#First option: Explicitly define names
design1 <- fhir_design(Pats = pat, Medics = meds)
print(design1)
#Second option: Names are taken from the object names
design2 <- fhir_design(pat, meds)
print(design2)
#Third option: Create table_description within fhir_design
design3 <- fhir_design(fhir_table_description(resource = "MedicationAdministration"))
print(design3)
#Fourth option: Names are taken from named list
design3 <- fhir_design(list(Patients = pat, Medications = meds))
print(design3)
###Example 2###
###Extract design from fhir_df_list/fhir_dt_list
#unserialize and crack example bundles
med_bundles <- fhir_unserialize(bundles = medication_bundles)
dfs <- fhir_crack(bundles = med_bundles, design = design1)
#extract design
fhir_design(dfs)
Run the code above in your browser using DataLab