R/download_book.R

In appliedepi/epirhandbook: Data Used in The Epidemiology R Handbook

#' @title download_book
#'
#' @description Need to refer to the Epidemiology R Handbook offline in the field?
#' Easily download the handbook in advance with this function
#'
#' @param save_loc **Run with no arguments to pick a directory interactively** Directory the book should be downloaded to
#'
#' @export
download_book <- function(save_loc = rstudioapi::selectDirectory()){

  stopifnot(!is.null("path"))

  save_file <- paste0(save_loc, "/Epi_R_Handbook_offline.html")

  download.file(url = "https://github.com/epirhandbook/Epi_R_handbook/raw/master/offline_long/Epi_R_Handbook_offline.html",
                destfile = save_file)

  cli::cli_alert_success("Complete! The Offline version of the hanbook is available here: {save_loc}")

}