R/bin-archive.R

In filebin: Wrapper for the Filebin File Sharing API

#' Get contents of bin as archive
#'
#' @inheritParams file_post
#' @param format Archive format. Either \code{"zip"} (default) or \code{"tar"}.
#' @param file File name to use to save results.
#'
#' @return File name as character vector.
#' @export
#'
#' @examples
#' \dontrun{
#' bin_archive("placeholder", file = tempfile(fileext = ".zip"))
#' }
bin_archive <- function(bin, format = "zip", file = NA) {
  stopifnot(format %in% c("zip", "tar"))

  if (is.url(bin)) {
    bin <- sub("/.*$", "", parse_url(bin)$path)
  }

  url <- file.path(base_url(), "archive", bin, format)

  response <- GET(
    url
  )

  if (is.na(file)) {
    file <- paste0(bin, ".", format)
  }

  writeBin(content(response, as = "raw"), file)

  file
}