I have a data frame (more than 1500 scraped patent data) containing json data:
df <- data.frame(patent = "EP1036268B1", citation = \