hardcode 'wb' mode for zip file downloads

R/cats_download_helper.R

@@ -43,7 +43,7 @@ download_cats_quickstart_data <- function(install.dir, redownload = F, reextract
         timeout <- R.utils::getOption("timeout")
         R.utils::setOption("timeout", 3600)
         result <-
-            utils::download.file(newest_url, destfile = destination_file)
+            utils::download.file(newest_url, destfile = destination_file, mode="wb")
         R.utils::setOption("timeout", timeout)
 
         if (result != 0) {
@@ -105,7 +105,7 @@ download_cats_for_windows <- function(install.dir, redownload = F, reextract = F
         print(sprintf("Downloading %s to %s", newest_url, destination_file))
         timeout <- R.utils::getOption("timeout")
         result <-
-            utils::download.file(newest_url, destfile = destination_file)
+            utils::download.file(newest_url, destfile = destination_file, mode="wb")
         R.utils::setOption("timeout", timeout)
         if (result != 0) {
             stop("Error downloading CATS")