From e36243f273da5e7e1e2df5eddb6a7f2141d44673 Mon Sep 17 00:00:00 2001
From: Rob Ashton <robertashton94@gmail.com>
Date: Tue, 10 Dec 2024 07:43:08 +0000
Subject: [PATCH] Pass ids into naomi datapack download

---
 R/downloads.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/downloads.R b/R/downloads.R
index c2f7823e..bde50a24 100644
--- a/R/downloads.R
+++ b/R/downloads.R
@@ -33,8 +33,14 @@ download <- function(model_output, type, path_results, input, language = NULL) {
     out <- naomi::hintr_prepare_agyw_download(model_output, input$pjnz,
                                               download_path)
   } else if (type == "datapack") {
+    model_fit_id <- input$state$model_fit$id
+    calibrate_id <- input$state$calibrate$id
+    ids <- data.frame(c("model_fit", "calibrate"),
+                      c(model_fit_id, calibrate_id))
     out <- naomi::hintr_prepare_datapack_download(model_output,
-                                                  download_path, input$vmmc)
+                                                  download_path,
+                                                  input$vmmc,
+                                                  ids)
   } else {
     func <- switch(type,
                    coarse_output = naomi::hintr_prepare_coarse_age_group_download,