From 44cf6eb42bbb25cc64a890e9ee606230e76c4e38 Mon Sep 17 00:00:00 2001 From: michaelm Date: Fri, 8 Nov 2024 08:26:31 -0500 Subject: [PATCH] Update header of renderQCSummary --- R/renderQCSummary.R | 2 +- tests/testthat/test-dirSummary.R | 2 +- tests/testthat/test-repoHistory.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/R/renderQCSummary.R b/R/renderQCSummary.R index 68c0d65..cbd4380 100644 --- a/R/renderQCSummary.R +++ b/R/renderQCSummary.R @@ -35,7 +35,7 @@ renderQCSummary <- function(.output_dir = NULL) { output_path <- file.path(.output_dir, output_file) params_in <- list( - project = basename(logRoot()), + project = paste0(basename(logRoot()), " as of revision ", svnProjInfo()[["rev"]]), repoHistory = repoHistory(), qcLog = logRead(), logPending = logPending() diff --git a/tests/testthat/test-dirSummary.R b/tests/testthat/test-dirSummary.R index bffe65a..db763b4 100644 --- a/tests/testthat/test-dirSummary.R +++ b/tests/testthat/test-dirSummary.R @@ -42,7 +42,7 @@ test_that("dirSummary generates formatted dataframe of QC status", { expect_true(is.factor(dirSummaryRes$status$Status)) expect_true(nrow(dirSummaryRes$status %>% dplyr::filter(Status == "QC up to date")) == 1) expect_true(nrow(dirSummaryRes$status %>% dplyr::filter(Status == "In QC log, needs QC")) == 1) - expect_true(nrow(dirSummaryRes$status %>% dplyr::filter(Status == "Not in QC log")) == 15) + expect_true(nrow(dirSummaryRes$status %>% dplyr::filter(Status == "Not in QC log")) == 16) }) setwd("script") diff --git a/tests/testthat/test-repoHistory.R b/tests/testthat/test-repoHistory.R index d3d0bc0..af3903c 100644 --- a/tests/testthat/test-repoHistory.R +++ b/tests/testthat/test-repoHistory.R @@ -4,7 +4,7 @@ df_history <- repoHistory() test_that("repoHistory works as expected", { - expect_equal(nrow(df_history %>% dplyr::distinct(rev)), 8) + expect_equal(nrow(df_history %>% dplyr::distinct(rev)), 9) expect_true(nrow(df_history %>% dplyr::distinct(author)) > 1)