if (FALSE) {
# Request the data
tops <- get_topics()
# Look at the first main topic
tops$main_topics[1, ]
# Extract all sub-topics for the first main topic
tops$topics[which(tops$topics$main_topic_id == 5), ]
}
Run the code above in your browser using DataLab