I have the following data
library(tidyverse) library(tibblify) data <- list(list(eventId = 8, subEventName = "Simple pass", tags = list( list(id =