To explore law and justice related datasets on OBI

obi-law-and-justice.R

packages_required <- c("ckanr","stringr","dplyr","DT","listviewer","ggplot2", "purrr","glue")
lapply(packages_required, require, character.only=TRUE)

org_url <- "https://openbudgetsindia.org/"
ckanr::ckanr_setup(url = org_url)
org_connect <- ckanr::src_ckan(url = org_url)

### Check connection
ckanr::ckan_version()

x <- ckanr::organization_list(limit = NULL)
org_title <- purrr::map(x, 'title')

words_to_search <-
  c('jail', 'court', 'prison', 'police', 'law', 'legal', 'judiciary', 'home', 'legislature')

find_legal_datasets <- function(search_for){
  all_legal_budget_datasets <-
    ckanr::resource_search(q = glue("name:{search_for}"),as = "table")
  print(glue(
    "Total datasets found for {search_for} : {all_legal_budget_datasets$count}"
  ))

  dataset_list <- all_legal_budget_datasets$results[,c("name","description","owner_org","format","url")]
  dataset_list$category <- search_for
  return(dataset_list)
}

all_legal_datasets <- lapply(words_to_search, find_legal_datasets) %>% bind_rows()
readr::write_csv(all_legal_datasets,"data/all_legal_datasets.csv")