if (FALSE) {
# Get one case
case <- get_case("30233")
case
# Get multiple cases
cases <- lapply(c("30233", "30362", "30234", "30236"), get_case, good_manners = 2)
cases_root <- lapply(cases, function(x) x$root)
cases_root <- do.call(rbind, cases_root)
cases_root
cases_keywords <- lapply(1:nrow(cases_root), function(x){
tmp <- cases[[x]]$keywords
tmp$case_id <- cases_root$id[x]
return(tmp)
})
cases_keywords <- do.call(rbind, cases_keywords)
cases_keywords
}
Run the code above in your browser using DataLab