fhir_cast.md
In fhircrackr: Handling HL7 FHIR® Resources in R

fhir_cast produces correct output

{
  "type": "list",
  "attributes": {
    "names": {
      "type": "character",
      "attributes": {},
      "value": ["[1.1]address.city", "[2.1]address.city", "[3.1]address.city", "[1.1]address.country", "[2.1]address.country", "[3.1]address.country", "[1.1]address.type", "[2.1]address.type", "[3.1]address.type", "[1.1]address.use", "[2.1]address.use", "[3.1]address.use", "[1]id", "[1.1]name.given", "[2.1]name.given"]
    },
    "row.names": {
      "type": "integer",
      "attributes": {},
      "value": [1, 2, 3]
    },
    "class": {
      "type": "character",
      "attributes": {},
      "value": ["data.frame"]
    }
  },
  "value": [
    {
      "type": "character",
      "attributes": {},
      "value": ["Amsterdam", "Rome", "Berlin"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, "Stockholm", null]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, null, "London"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": ["Netherlands", "Italy", null]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, "Sweden", "France"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, null, "England"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": ["physical", "physical", null]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, "postal", "postal"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, null, "postal"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": ["home", "home", "home"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, "work", null]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, null, "work"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": ["id1", "id2", "id3"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": ["Marie", "Susie", "Frank"]
    },
    {
      "type": "character",
      "attributes": {},
      "value": [null, null, "Max"]
    }
  ]
}