flatten information in Patient component of a bundle to a one-line data.frame

flatten information in Patient component of a bundle to a one-line data.frame

process_Patient(Patient)

Arguments

Patient

element of FHIR.bundle instance

Value

data.frame

Examples

testf <- system.file("json/Vince741_Rogahn59_6fa3d4ab-c0b6-424a-89d8-7d9105129296.json",
   package="BiocFHIR")
tbun <- process_fhir_bundle(testf)
tpat <- process_Patient(tbun$Patient)
head(names(tpat))
#> [1] "value"
tags <- c("identifier.system3", "identifier.value3")
tpat[tags,,FALSE]
#>                                             value
#> identifier.system3 http://hl7.org/fhir/sid/us-ssn
#> identifier.value3                     999-91-5546
tags2 <- grep("extension.extension", rownames(tpat), value=TRUE)
tpat[tags2,,FALSE]
#>                                                       value
#> address.extension.extension.url1                   latitude
#> address.extension.extension.url2                  longitude
#> address.extension.extension.valueDecimal1  42.5002444511425
#> address.extension.extension.valueDecimal2 -71.0780405545095