From 03d3b31c13952bf1336fb907713484d77886e1b0 Mon Sep 17 00:00:00 2001 From: Rob Ashton Date: Tue, 10 Dec 2024 15:08:16 +0000 Subject: [PATCH] Update version number label in datapack download and test --- R/pepfar-datapack.R | 2 +- tests/testthat/test-downloads.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/pepfar-datapack.R b/R/pepfar-datapack.R index 816d55d9..dd051d29 100644 --- a/R/pepfar-datapack.R +++ b/R/pepfar-datapack.R @@ -214,7 +214,7 @@ build_datapack_metadata <- function(naomi_output, ids) { info <- attr(naomi_output, "info") inputs <- read.csv(text = info$inputs.csv, header = FALSE) - version <- data.frame("Version", utils::packageVersion("naomi")) + version <- data.frame("Naomi Version", utils::packageVersion("naomi")) if (!is.null(ids)) { all_data <- list(version, ids, inputs, meta_period) diff --git a/tests/testthat/test-downloads.R b/tests/testthat/test-downloads.R index 6562b223..3d31ffc0 100644 --- a/tests/testthat/test-downloads.R +++ b/tests/testthat/test-downloads.R @@ -349,5 +349,5 @@ test_that("datapack download can include vmmc data", { metadata <- readxl::read_xlsx(out$path, "metadata") expect_true(nrow(metadata) > 0) - expect_equal(as.character(metadata[1, 1]), "Version") + expect_equal(as.character(metadata[1, 1]), "Naomi version") })