R/read_data_entity_checksum.R

In ropensci/EDIutils: An API Client for the Environmental Data Initiative Repository

#' Read data entity checksum
#'
#' @param packageId (character) Data package identifier
#' @param entityId (character) Data entity identifier
#' @param env (character) Repository environment. Can be: "production",
#' "staging", or "development".
#'
#' @return (character) A 40-character SHA-1 checksum value of \code{entityId}
#' in \code{packageId}
#' 
#' @family Accessing
#'
#' @export
#'
#' @examples
#' \dontrun{
#' 
#' # List data entities
#' entityIds <- list_data_entities(packageId = "knb-lter-ble.1.7")
#' entityIds
#' #> [1] "a1723e0e5f3c4881f1a7ede1b036aba6"
#' #> [2] "b698644419ea88ab1072f4fcbef9083c"
#' #> [3] "617415426847fd900b644283d86c1c66"
#' #> [4] "9942544de7e794ce84a62151bd41e6b3"
#' 
#' # Read checksum
#' checksum <- read_data_entity_checksum(
#'  packageId = "knb-lter-ble.1.7",
#'  entityId = entityIds[1]
#' )
#' checksum
#' #> [1] "22b189095bc9a166c3891e80b67b2a636eae60a4"

#' }
read_data_entity_checksum <- function(packageId, entityId, env = "production") {
  pkg <- parse_packageId(packageId)
  url <- paste0(
    base_url(env), "/package/data/checksum/eml/",
    paste(pkg, collapse = "/"), "/", entityId
  )
  resp <- httr::GET(url, set_user_agent(), handle = httr::handle(""))
  res <- httr::content(resp, as = "text", encoding = "UTF-8")
  httr::stop_for_status(resp, res)
  return(text2char(res))
}