I have the following data:
data <- list(list(eventId = 8, subEventName = "Simple pass", tags = list( list(id = 1801)), playerId = 122671, positions