R/get_resources_list.R

In tonyfujs/ddhqa: Data Catalog Quality Assurance

#' get_resources_list()
#'
#' @param est_count character: Approximate number of resources
#' @param credentials list: API authentication credentials
#'
#' @return numeric vector
#' @export
#'
#'

# TODO can use this if doing count for machine names?
# TODO needs to be updated/fixed

get_resources_list <- function(est_count = 100000,
                               root_url = dkanr::get_url(),
                               credentials = list(cookie = dkanr::get_cookie(),
                                                  token = dkanr::get_token())){

  ddhconnect::get_datasets_list()

  nid_resources <- vector("list", est_count)
  count <- 1

  for (dataset in datasets_metadata){
    resources <- dataset$field_resources
    if (!is.null(resources$und$target_id)) {
      for (id in resources$und$target_id) {
        nid_resources[count] <- id
        count <- count + 1
      }
    }
  }

  out <- nid_resources[!sapply(nid_resources, is.null)]
  return(out)
}