List of dataset per region in RIDL including year of creation of each dataset

ridl_regional_dataset_list.R

library(tidyverse)
library(ridl)
library(lubridate)

### Targeted region
region <- "west-and-central-africa"

### List all containers
ct_nm <- rc_list()

### Get all containers with the region in his hierarchy
ct_hierarchy_nm <- lapply(ct_nm, ridl_container_hierarchy_list) ## super slow

### Filter for element with the region name in it
lgl <- vapply(ct_hierarchy_nm, \(l) region %in% l, TRUE)

### Get the list all containers from region and include region itself
wca_ct_nm <- c(ct_nm[lgl], region)

qry <- paste0("organization:",
              "(", paste(wca_ct_nm,
                         collapse = " or "),
              ")")

all_datasets <- rd_search(qry, rows = 1000)

all_datasets <- all_datasets |>
  as_tibble()


### Resource min year of creation
rd_resource_min_year <- function(x) {
  min(vapply(rd_resource_get_all(x),
             \(r) lubridate::year(r$data$created), numeric(1)))
}

all_datasets <- mutate(all_datasets,
                       resource_min_year = map_dbl(dataset, rd_resource_min_year))