# NOT RUN {
fhir_endpoint <- "https://fhirtest.uhn.ca/baseDstu3"
fhir_version <- "3"
fhir_resources <- data.frame(
"id" = c("21376", "6288583", "25544", "92440", "4588936"),
"resource" = c(
"Sequence", "DiagnosticReport", "ProcedureRequest",
"Observation", "FamilyMemberHistory"
),
stringsAsFactors = FALSE
)
compose_fhir(fhir_endpoint, fhir_version, fhir_resources) %>% convert_json()
# }
Run the code above in your browser using DataLab