R/tdar_download_resource.R

In bocinsky/tdar: R Bindings to the Digital Archaeological Record (tDAR) API

#' Title
#'
#' @param id
#' @param out_file
#' @param out_dir
#'
#' @return
#' @export
#'
#' @examples
tdar_download_resource <- function(id,
                                   out_file = NULL,
                                   out_dir = ".",
                                   overwrite = TRUE){

  dir.create(out_dir,
             recursive = TRUE,
             showWarnings = FALSE)

  if(is.null(out_file))
    out_file <- stringr::str_c(out_dir,"/",
                               tdar_get_resource_filename(id))

  if(overwrite || !file.exists(out_file)){
    httr::GET(tdar_get_resource_path(id),
              httr::write_disk(out_file,
                               overwrite = TRUE))
  }

  return(out_file)
}