#unserialize example
bundles <- fhir_unserialize(bundles = example_bundles1)
#crack fhir resources
table_desc <- fhir_table_description(
resource = "Patient",
brackets = c("[", "]"),
sep = " "
)
df <- fhir_crack(bundles = bundles, design = table_desc)
#original data frame
df
#melt all multiple entries
fhir_melt_all(
indexed_data_frame = df,
brackets = c("[", "]"),
sep = " "
)
Run the code above in your browser using DataLab