将JSON列表展平为数据框

Question

我有143个JSON文件（约30 MB）的目录，我想将其合并并转换为平面数据框。 （这可能与this question有关，但我无法使该解决方案正常工作。结果请参见底部。）

我能够解析单个元素，所以我认为我的绊脚石被下面的reprex捕获了：

Month

我正在尝试获取一个数据帧，该数据帧显示源文件中的所有行，但展平版本仅显示第一个元素。我在这里做什么错了？

chr <- "[{\"sometext_lets_pretend_its_JSON\":999}]"
my_list <- list(chr, chr, chr, chr, chr, chr)
library(purrr)
my_list %>% 
    map(~ fromJSON(.x))

#[[1]]
#  sometext_lets_pretend_its_JSON
#1                            999
#
#[[2]]
#  sometext_lets_pretend_its_JSON
#1                            999
#
#[[3]]
#  sometext_lets_pretend_its_JSON
#1                            999
#
#[[4]]
#  sometext_lets_pretend_its_JSON
#1                            999
#
#[[5]]
#  sometext_lets_pretend_its_JSON
#1                            999
#
#[[6]]
#  sometext_lets_pretend_its_JSON
#1                            999

Answer 1

你是这个意思吗？

my_list %>%
    map(~ fromJSON(.x)) %>%
    bind_rows()
#  sometext_lets_pretend_its_JSON
#1                            999
#2                            999
#3                            999
#4                            999
#5                            999
#6                            999