frictionless datapackage.json to tibble (or csv)

datapackage_to_tbl.R

datapackage_json <-
  jsonlite::read_json("https://raw.githubusercontent.com/inbo/etn/main/inst/assets/datapackage.json")
  
  datapackage_tbl <-
  datapackage_json |>
  purrr::chuck("resources") |>
  purrr::map(
    \(resource) purrr::set_names(
      purrr::chuck(resource, "schema", "fields"),
      purrr::chuck(resource, "name")
    )
  ) |>
  purrr::map(
    \(resource) purrr::map(
      resource,
      ~ dplyr::tibble(
        name = purrr::pluck(.x, "name"),
        type = purrr::pluck(.x, "type"),
        resource_name = unique(names(resource))
      )
    )
  ) |>
  purrr::map(purrr::list_rbind) |>
  purrr::list_rbind()

Used for inbo/etn#290