if (FALSE) {
#without indices
cap <- fhir_capability_statement(url = "https://server.fire.ly")
#with indices
cap <- fhir_capability_statement(url = "https://server.fire.ly",
brackets = c("[","]"),
sep = " || ")
#melt searchInclude variable
resources <- fhir_melt(cap$Resources,
columns = "searchInclude",
brackets = c("[", "]"),
sep = " || ",
all_columns = FALSE)
#remove indices
resources <- fhir_rm_indices(resources, brackets = c("[", "]"))
head(resources)
}
Run the code above in your browser using DataLab