你如何解析文件中不完整行的json文件？

Question

我在一个目录中有大量文件，文件中包含许多条目：

{"DateTimeStamp":"2017-07-20T21:52:00.767-0400","Host":"Server","Code":"test101","use":"stats"}

我需要能够读取每个文件并从json etries中形成数据框。有时，文件中的行可能不完整，我的脚本失败。如何修改此脚本以解决文件中不完整的行：

 path<-c("C:/JsonFiles")



  filenames <- list.files(path, pattern="*Data*", full.names=TRUE)

  dflist <- lapply(filenames, function(i) {
    jsonlite::fromJSON(
      paste0("[",
             paste0(readLines(i),collapse=","),
             "]"),flatten=TRUE
    )
  })

  mq<-rbindlist(dflist, use.names=TRUE, fill=TRUE)