使用 rjsonio 将 json 转换为数据表

Question

我已正确格式化通过标准 API 获取的 JSON。

API 基本上每次获取数据时都会返回一个 JSON 对象数组。

像这样：

[
{}, 
{}, 
{}
]

我使用 JSON 编辑器检查 JSON 数据的结构，看起来很完美。 我需要将其转换为 CSV，所以尝试了这个：

freshDeskRaw <- fromJSON(freshDeskTickets)
tmp <- lapply(freshDeskRaw , function(u) 
  lapply(u, function(x) if(is.null(x)) NA else x)
)
tmp <- lapply( tmp, as.data.frame)
tmp <- do.call( rbind, tmp )

在

tmp <- lapply( tmp, as.data.frame)

，我得到一个错误：

tmp

我该如何解决这个问题？什么看起来不对？我试过用

as.data.frame(tmp) 也是如此，但仍然出现相同的错误。

Answer 1

问题可能是上面的 JSON 产生了空列表和

is.null(list())
# [1] FALSE

试试

is.null(x) || (is.list(x) && length(x) == 0)