У меня есть файл журнала, который выглядит какэтот.

Я пытаюсь разобрать JSON вMessage колонка по:

library(readr)
library(jsonlite)

df <- read_csv("log_file_from_above.csv")
fromJSON(as.character(df$Message))

Но я получаю следующую ошибку:

Error: parse error: trailing garbage
          "isEmailConfirmed": false  } {    "id": -1,    "firstName": 
                     (right here) ------^

Как я могу избавиться от "висящего мусора"?