make filename of downloaded data independent of URL

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")