Много недостающей информации, но это, вероятно, сработает. Я использовал pblapply, чтобы получить хороший индикатор прогресса (поскольку вы упоминаете> 1000 файлов).
Я никогда не использовал приведенное ниже решение для JSON-файлы (без опыта работы с JSON), но он работает безупречно для файлов .csv и .xls (конечно, с различными функциями чтения) .. поэтому я ожидаю, что он будет работать и с JSON.
library(data.table)
library(pbapply)
library(rjson)
folderpath <- "C:\\myfolder\\"
filefilter <- "*.json$"
#set paramaters as needed
f <- list.files( path = folderpath,
pattern = filefilter,
full.names = TRUE,
recursive = FALSE )
#read all files to a list
f.list <- pblapply( f, function(x) fromJSON( file = x ) )
#join lists together
dt <- data.table::rbindlist( f.list )