R/extract_eex_metadata.R

In tonyfujs/eex2ddh:

#' extract_eex_metadata
#'
#' Extract specific metadata from the Energy Portal API JSON response
#' @param eex_internal_id character: Energy Portal dataset ID
#'
#' @return list
#' @export
#'

extract_eex_metadata <- function(eex_internal_id) {
  
  url   <- paste0("https://energydata.info/api/3/action/package_show?id=", eex_internal_id)
  
  # Send request to API
  resp  <- httr::GET(url,
                     httr::add_headers(.headers = c('X-API-KEY' = "",
                                                    'charset' = "utf-8")),
                     httr::accept_json())
  
  eex_data <- jsonlite::fromJSON(httr::content(resp, "text"), simplifyVector = FALSE)
  
  return(eex_data$result)
}