R:嵌套数据.可转换为JSON

Question

我想从像这样的数据表中获取

temp <- data.table(data = list(data.table(a = 1:2,b=1:2)), type = "A")

数据类型
<data.table[2x2]>	A

我们可以使用jq来进行开箱作为后处理步骤，因为jsonlite似乎不允许这种特定的用例：

jsonlite::toJSON(nest3, pretty = TRUE) %>% 
jqr::jq('walk(if type=="array" and length==1 then .[0] else . end)')

jq位取自jq~是否有更好的方法来折叠单个对象数组？