jsonlite :: toJSON слишком много скобок `[]` в R - распаковать json

Question

Я сейчас создаю API, в котором есть несколько уровней информации.В настоящее время я использую тиблы и вкладываю информацию в столбцы:

# A tibble: 1 x 3
  APICallTimeGMT      Error                some_data       
  <dttm>              <list>               <list>          
1 2018-10-19 11:43:10 <data.frame [1 × 2]> <tibble [2 × 3]>

Когда я затем превращаю это в JSON, используя jsonlite::toJSON, я получаю список лотов [] скобок.Есть ли способ превратить эти конкретные объекты в объект JSON вместо списка.Итак, какой класс (вместо data.frame) должен быть вложенным объектом?

Токовый выход:

Желаемый выход:

Вот dput(x) для воспроизводимости:

structure(list(APICallTimeGMT = structure(1539949390.26164, class = c("POSIXct", 
"POSIXt")), Error = list(structure(list(msg = structure(1L, .Label = "OK", class = "factor"), 
    status = 200), .Names = c("msg", "status"), row.names = c(NA, 
-1L), class = "data.frame")), some_data = list(structure(list(
    Outcome = c("Case1", "Case2"), predictions = list(structure(list(
        ClassA = 0.4, ClassB = 0.1, ClassC = 0.5), .Names = c("ClassA", 
    "ClassB", "ClassC"), row.names = c(NA, -1L), class = "data.frame"), 
        structure(list(ClassA = 0.4, ClassB = 0.1, ClassC = 0.5), .Names = c("ClassA", 
        "ClassB", "ClassC"), row.names = c(NA, -1L), class = "data.frame")), 
    meta = list(structure(list(model = structure(1L, .Label = "Awesome AI", class = "factor"), 
        runs = 55), .Names = c("model", "runs"), row.names = c(NA, 
    -1L), class = "data.frame"), structure(list(model = structure(1L, .Label = "Awesome AI", class = "factor"), 
        runs = 55), .Names = c("model", "runs"), row.names = c(NA, 
    -1L), class = "data.frame"))), row.names = c(NA, -2L), class = c("tbl_df", 
"tbl", "data.frame"), .Names = c("Outcome", "predictions", "meta"
)))), row.names = c(NA, -1L), .Names = c("APICallTimeGMT", "Error", 
"some_data"), class = c("tbl_df", "tbl", "data.frame"))

Answer 1

Ответ от Стефана Лорана был близок.Казалось бы, проблема в том, что, если данные находятся во вложенных таблицах, auto-unbox = TRUE как-то дает сбой.Чтобы правильно распечатать данные выше, я использовал mutate + purrr:

library(jsonlite)

x_unboxed <- x %>% 
  mutate(Error = map(Error, ~.x %>% unbox),
         some_data = map(some_data, ~.x %>% 
                           mutate(predictions = map(predictions, ~.x %>% unbox),
                                  meta = map(meta, ~.x %>% unbox)))) %>% 
  unbox

x_unboxed %>% toJSON(., pretty = T)