read_csv("https://github.com/jordiclive/Revolut_KYC_Exercise/raw/master/data/doc_reports.csv")->doc
doc %>% mutate(list_col=str_split(properties,','))->doc1
doc1[1:nrow(doc1),list(list_col=as.character(unlist(list_col))),by=list(attempt_id)]->doc2

# Загружаем пакеты
library(data.table)
library(curl)
library(jsonlite)

# URL с датасетом
u <- "https://github.com/jordiclive/Revolut_KYC_Exercise/raw/master/data/doc_reports.csv"
# Считываем данные
.dt <- fread(u)
# Фиксим JSON
.dt[, properties := gsub("'", "\"", properties, fixed = TRUE)]
.dt[, properties := gsub("None", "null", properties, fixed = TRUE)]
# Парсим JSON
props <- fromJSON(paste0("[", paste0(.dt$properties, collapse = ","), "]"))
# Постобработка
setDT(props)
props[, date_of_expiry := as.Date(date_of_expiry)]
# Удаляем лишние столбцы
.dt[, properties := NULL]
# Объединяем данные
.dt <- cbind(.dt, props)
str(.dt)