R/download_bergseng_et_al_2015_sup_1.R

In richelbilderbeek/bbbq: The Bilderbeek Bianchi and Bogaart Question

#' Downloads the XLSX file by Bergseng et al., 2015
#' @param url the download URL.
#' @param xlsx_filename the XLSX filename
#' @param verbose set to TRUE for more output
#' @return the XLSX filename of the downloaded file
#' @seealso use \link{get_bergseng_et_al_2015_sup_1} to
#'   read the table as a \link{tibble}[tibble]
#' @export
download_bergseng_et_al_2015_sup_1 <- function( # nolint long function name indeed
  url = bbbq::get_bergseng_et_al_2015_sup_1_url(),
  xlsx_filename = file.path(
    rappdirs::user_data_dir(appname = "bbbq"),
    "251_2014_819_MOESM3_ESM.xlsx"
  ),
  verbose = FALSE
) {
  dir.create(
    path = dirname(xlsx_filename),
    showWarnings = FALSE,
    recursive = TRUE
  )
  utils::download.file(
    url = url,
    destfile = xlsx_filename,
    quiet = !verbose
  )
  xlsx_filename
}