Как преобразовать JSON в файл xlsx, используя R

Question

Я хочу преобразовать JSON в файл xlsx, используя R. Вот сценарий, который я ожидаю:

Вот мой объект R.

    myObject <- {
  "Alabama" : { 
                "Hoover": {
                           "x":[33.40556, 33.40565, 33.40555],
                           "y":[-86.81111, -86.81314, -86.81343]
                          },
                "Dothan": {
                           "x":[31.22722],
                           "y":[-85.40722]
                          },
                  ...
              },
  "Alaska" : {
               "Chugiak" : {
                            "x":[61.38778],
                            "y":[-149.48139]
                           },
               ...
             }
  ...
}

Вот результат, который я хочу в xlsx:

Alabama Hoover 33.40556 -86.81111
Alabama Hoover 33.40565 -86.81314
Alabama Hoover 33.40555 -86.81343
Alabama Dothan 31.22722 -85.40722
Alabama Gadsden 34.01028 -86.01028
Alaska Chugiak 61.38778 -149.48139
...

PS: Могу ли я получить тот же результат от объекта R, который auto_unboxed, например:

myObject <- {
  "Alabama" : { 
                "Hoover": {
                           "x":[33.40556, 33.40565, 33.40555],
                           "y":[-86.81111, -86.81314, -86.81343]
                          },
                "Dothan": {
                           "x":31.22722,
                           "y":-85.40722
                          },
                  ...
              },
  "Alaska" : {
               "Chugiak" : {
                            "x":61.38778,
                            "y":-149.48139
                           },
               ...
             }
  ...
}

Answer 1

Попробуйте:

myfunc <- function(o) {
  if ("x" %in% names(o)) {
    as.data.frame(o)
  } else {
    x <- lapply(o, function(z) myfunc(z))
    do.call(rbind.data.frame, Map(cbind.data.frame, nm=names(x), x))
  }
}
out <- myfunc(obj)
names(out) <- make.names(names(out), unique = TRUE)
out
#                       nm    nm.1        x          y
# Alabama.Hoover.1 Alabama  Hoover 33.40556  -86.81111
# Alabama.Hoover.2 Alabama  Hoover 33.40565  -86.81314
# Alabama.Hoover.3 Alabama  Hoover 33.40555  -86.81343
# Alabama.Dothan   Alabama  Dothan 31.22722  -85.40722
# Alaska            Alaska Chugiak 61.38778 -149.48139

Имена строк (Alabama.Hoover.3) являются одноразовыми. Столбцы с повторяющимся именем должны быть уникальными (это то, что делает make.names, иначе все они будут иметь имя "nm").

Данные:

obj <- jsonlite::fromJSON('{
  "Alabama" : { 
                "Hoover": {
                           "x":[33.40556, 33.40565, 33.40555],
                           "y":[-86.81111, -86.81314, -86.81343]
                          },
                "Dothan": {
                           "x":[31.22722],
                           "y":[-85.40722]
                          }
              },
  "Alaska" : {
               "Chugiak" : {
                            "x":[61.38778],
                            "y":[-149.48139]
                           }
             } }')