Reformatting JSON Files in R - r

Question

I have a JSON file formatted as follows:
[
{
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
},
{
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
}
]
Is there R script I can use to reformat the file as follows:
{
"Locations": [
{
"Address": {
"StreetAddress": "1000 Herrontown Rd",
"City": "Princeton",
"State": "NJ",
"Zip": "",
"County": "",
"Country": null,
"SPLC": "",
"CountryPostalFilter": 0,
"AbbreviationFormat": 0,
"CountryAbbreviation": "US"
}
},
{
"Address": {
"StreetAddress": "457 N Harrison St",
"City": "",
"State": "",
"Zip": "08540",
"County": "",
"Country": null,
"SPLC": "",
"CountryPostalFilter": 0,
"AbbreviationFormat": 0
}
}
]
}

Answer 1

df <- jsonlite::fromJSON('[
{
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
},
{
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
}
]')
In comparison with #Brian's answer, I don't set simplifyDataFrame = F so the JSON form will be converted to a data.frame object in R. Then use tibble() to put this data frame into a 2x1 data frame with column name Address(This is a little tricky because base data.frame() cannot do that).
res <- list(Locations = tibble::tibble(Address = df))
jsonlite::toJSON(res, pretty = T)
Edit: This method works even when I set simplifyDataFrame = F, because tibble() also allow named lists as columns.
Output
{
"Locations": [
{
"Address": {
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
}
},
{
"Address": {
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
}
}
]
}

Answer 2

df<-jsonlite::fromJSON('[
{
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
},
{
"StreetAddress": "",
"City": "",
"State": "",
"Zip": "V6A 2P3",
"County": "",
"Country": "",
"SPLC": "",
"CountryPostalFilter": "",
"AbbreviationFormat": "",
"CountryAbbreviation": ""
}
]', simplifyDataFrame = F)
purrr::map(df, ~list(Address = .x)) %>%
list(Locations = .) %>%
jsonlite::toJSON(pretty = T, auto_unbox = T)
I think this reproduces your desired output exactly.