Добавление в скобках для JSON в R

Question

У меня есть этот пример JSON:

[
  {
    "city": "Chicago",
    "latitude": "41.8781",
    "longitude": "87.6298"
  }
]

Как я могу использовать R для преобразования этого в обычный JSON?(Как в, а не массив).Я хочу это:

library(jsonlite)

{
  "Chicago": {
    "lat" : "41.8781"
    "long" : "87.6298"
    }
}

Я использовал пакет jsonlite для преобразования кадра данных в JSON, например, toJSON(df, pretty = T).Примерный набор данных:

df <- tibble(
  "City" = ("Chicago"),
  "latitude" =(41.8781),
  "longitude" = (87.6298)
)

Их несколько сотен, любая помощь будет отличной.Или, если это невозможно в R, это тоже было бы полезно знать.Спасибо!

Answer 1

Может быть что-то вроде:

library(jsonlite)
df <- fromJSON('[
    {
        "city": "Chicago",
        "latitude": "41.8781",
        "longitude": "87.6298"
    }
]')

ans <- setNames(apply(df[,-1L], 1, as.list), df[,1L])
toJSON(ans, auto_unbox=TRUE)