Pass ids into naomi datapack download

hivtools · Dec 10, 2024 · e36243f · e36243f
1 parent 965e8d5
commit e36243f
Showing 1 changed file with 7 additions and 1 deletion.
diff --git 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,