#unserialize example
bundles <- fhir_unserialize(bundles = example_bundles1)
#crack fhir resources
Pat <- fhir_table_description(
resource = "Patient",
brackets = c("[", "]"),
sep = " ",
format = "wide"
)
df <- fhir_crack(bundles = bundles, design = Pat)
#build resource
resource <- fhir_build_resource(
row = df[1,],
brackets = c('[', ']'),
resource_type = "Patient"
)
#print to console
resource
Run the code above in your browser using DataLab