diff --git a/R/cats_download_helper.R b/R/cats_download_helper.R index d016540aab528a211fb2dde115640c1890462559..6f65da05bbcb4ba013980f21bf270c8f05eea8c2 100644 --- a/R/cats_download_helper.R +++ b/R/cats_download_helper.R @@ -37,7 +37,7 @@ download_cats_quickstart_data <- function(install.dir, redownload = F, reextract newest_version <- data$newest$quickstart_data newest_url <- subset(data$quickstart_data, version == newest_version)$url - destination_file <- file.path(install.dir, basename(newest_url)) + destination_file <- file.path(install.dir, sprintf("cats-quickstart-data-%s.zip", newest_version)) if (!file.exists(destination_file) || redownload == TRUE) { print(sprintf("Downloading %s to %s", newest_url, destination_file)) timeout <- R.utils::getOption("timeout") @@ -100,7 +100,7 @@ download_cats_for_windows <- function(install.dir, redownload = F, reextract = F newest_url <- subset(data$windows_binaries, version == newest_version)$url - destination_file <- file.path(install.dir, basename(newest_url)) + destination_file <- file.path(install.dir, sprintf("cats-%s-windows.zip", newest_version)) if (!file.exists(destination_file) || redownload == TRUE) { print(sprintf("Downloading %s to %s", newest_url, destination_file)) timeout <- R.utils::getOption("timeout")