# NOT RUN {
# Setting up a fhirClient
client <- fhirClient$new("http://vonk.furore.com")
# Creating a new searchParams object
query <- searchParams$new()
query$select(c("name", "birthDate"))$where("given:exact=Peter")$orderBy("family")
peters <- client$searchByQuery(query, "Patient")
# equivalent:
# client$search("Patient", c("_elements=name,birthDate","given:exact=Peter", "_sort=family"))
while(!is.null(bundle)){
# Do something useful
peters <- client$continue(peters)
}
# }
Run the code above in your browser using DataLab