#unserialize example bundles
bundles1 <- fhir_unserialize(example_bundles1)
bundles2 <- fhir_unserialize(example_bundles2)
#bind them together in one fhir_bundle_list
bound_bundles <- fhir_bundle_list(c(bundles1, bundles2))
class(bound_bundles)
#bound list contains bundles from both original lists
length(bundles1)
length(bundles2)
length(bound_bundles)
#Create fhir_bundle list from xml objects
b1 <- xml2::read_xml("")
b2 <- xml2::read_xml("")
fhir_bundle_list(bundles = list(b1, b2))
fhir_bundle_list(bundles = list(fhir_bundle_xml(b1), fhir_bundle_xml(b2)))
r1 <- xml2::xml_serialize(object = b1, connection= NULL)
r2 <- xml2::xml_serialize(object = b2, connection= NULL)
fhir_bundle_list(bundles = list(r1, r2))
Run the code above in your browser using DataLab