# Raw json or xml
tp_namedistributions(id = 25509881, output = 'raw')
# Output as data.frame
df <- tp_namedistributions(id = 25509881)
df[df$category %in% 'Location',] # just location data
df[df$category %in% 'Reference',] # just reference data
Run the code above in your browser using DataLab