jsonlite阵列

Question

当使用jsonlite导入在其他数组中有一个数组的json时，我会得到一个不想要的未命名列表。举例如下：

myjson=jsonlite::fromJSON('{
  "class" : "human",
  "type" : [{ 
  "shape":"thin",
  "face":[{"eyes":"blues","hair":"brown"}]
}]
}')

str(myjson)

List of 2
 $ class: chr "human"
 $ type :'data.frame':  1 obs. of  2 variables:
  ..$ shape: chr "thin"
  ..$ face :List of 1
  .. ..$ :'data.frame': 1 obs. of  2 variables:
  .. .. ..$ eyes: chr "blues"
  .. .. ..$ hair: chr "brown"

我想按下面的方式访问“眼睛”字段(但是它不起作用)：

myjson[["type"]][["face"]][["eyes"]]
NULL

相反，我需要添加"[1]“，以便使其发挥作用：

myjson[["type"]][["face"]][[1]][["eyes"]]
[1] "blues"

有什么想法吗?我如何格式化json以去掉这个未命名的列表？

Answer 1

问题是，只要有JSON向量[{}, {}, ...]，就会使用未命名的列表。您的第一个向量被转换为一个命名列表，而第二个内部向量被转换为一个未命名的列表，这是因为在默认情况下，jsonlite::fromJSON有参数simplifyDataFrame = TRUE和flatten = TRUE，这些参数具有这种行为。我还没有研究源代码，但似乎所涉及的简化(将只有一个元素的向量转换为命名列表)只简化了顶层对象。

所做的工作是应用一个函数，将任何只有单个对象的未命名列表转换为该对象本身。

my_json <- lapply(my_json, function(x) {
    if (is.list(x)) # if element is a list, replace it with its first element
        return(lapply(x, function(y) {
            return(y[[1]])
        }))
    else
        return(x)
})