From 28db7fc826b92a887e937d322db6c81634c39edd Mon Sep 17 00:00:00 2001
From: pat-s <patrick.schratz@gmail.com>
Date: Sun, 1 Sep 2024 13:30:43 +0200
Subject: [PATCH] archive package after build

---
 R/build_binaries.R          | 8 +++++++-
 man/build_binary_package.Rd | 3 ++-
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/R/build_binaries.R b/R/build_binaries.R
index 982eca0..0935f0f 100644
--- a/R/build_binaries.R
+++ b/R/build_binaries.R
@@ -14,7 +14,8 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
                                  platform = NULL,
                                  install_system_dependencies = TRUE,
                                  debug = FALSE,
-                                 force = FALSE) {
+                                 force = FALSE,
+                                 archive = TRUE) {
   cli::cli_h2("Preparations ({.pkg {package_name}})")
   codename <- set_codename(codename)
 
@@ -113,6 +114,11 @@ build_binary_package <- function(package_name, tag = NULL, codename = NULL,
       }
     )
   }, package_name, tag, future.seed = TRUE)
+
+  if (archive) {
+    archive_package(package_name[[1]])
+  }
+
   # })
 
   total_build_time <- round(Sys.time() - t1, 2)
diff --git a/man/build_binary_package.Rd b/man/build_binary_package.Rd
index 7d62971..4c64af4 100644
--- a/man/build_binary_package.Rd
+++ b/man/build_binary_package.Rd
@@ -15,7 +15,8 @@ build_binary_package(
   platform = NULL,
   install_system_dependencies = TRUE,
   debug = FALSE,
-  force = FALSE
+  force = FALSE,
+  archive = TRUE
 )
 }
 \description{