Один вариант:
library(rjson)
data.frame(t(unlist(fromJSON(js))))
title opening_weekend_take year release_date_wide gross
3 (2011) 1234 2011 2011-09-16 59954
require(RJSONIO)
js<-'[{"name": null, "release_date_local": null, "title": "3 (2011)",
"opening_weekend_take": 1234, "year": 2011,
"release_date_wide": "2011-09-16", "gross": 59954}]'
js <- fromJSON(js)
Также замените нули на NA
js <- lapply(js, function(x) {
x[sapply(x, is.null)] <- NA
unlist(x)
})
Затем, наконец, используйте метод do.call
asDataFrame <- do.call("rbind", lapply(js, as.data.frame))
ИЛИ ЖЕ
do.call("rbind", js)
Выход:
name release_date_local title opening_weekend_take year
[1,] NA NA "3 (2011)" "1234" "2011"
release_date_wide gross
[1,] "2011-09-16" "59954"
Также покажите, что вы пробовали и как должен выглядеть конечный результат.