R/url-file-size.R

In campfin: Wrangle Campaign Finance Data

#' Check a URL file size
#'
#' Call [httr::HEAD()] and return the number of bytes in the file to be
#' downloaded.
#'
#' @param url The URL of the file to query.
#' @return The size of a file to be downloaded.
#' @importFrom httr HEAD headers
#' @importFrom fs as_fs_bytes
#' @export
url_file_size <- function(url) {
  file_head <- httr::HEAD(url = url)
  file_length <- as.numeric(httr::headers(file_head)[["content-length"]])
  fs::as_fs_bytes(file_length)
}