#unserialize example bundle
bundles <- fhir_unserialize(medication_bundles)
#save all bundles to temporary directory
fhir_save(bundles, directory = tempdir())
#save only two bundles (the second and the third) to temporary directory
fhir_save(bundles[c(2,3)], directory = tempdir())
Run the code above in your browser using DataLab