#7 Adjust filename report.

Calvagone · Nov 29, 2024 · 0b58c33 · 0b58c33
1 parent 0610e3d
commit 0b58c33
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/R/installation_qualification.R b/R/installation_qualification.R
@@ -340,10 +340,11 @@ runQualificationCore <- function(packages, qualification_suite=NULL, cpu=6) {
 #' @importFrom rmarkdown render
 renderReport <- function(results, packages, fullname, initials=NULL, output_dir, qualification_suite) {
   credentials <- qualification_suite@credentials
-
+  eCampsisQual <- "ecampsis" %in% packages
+
   # Report filename
-  reportFilename <- paste0("IQ_OQ_Campsis_Suite-",
-                           getNamespaceVersion("campsis") %>% as.character(),
+  reportFilename <- paste0(sprintf("IQ_OQ_%s-", ifelse(eCampsisQual, "e-Campsis", "Campsis_Suite")),
+                           ifelse(eCampsisQual, getNamespaceVersion("ecampsis"), getNamespaceVersion("campsis")),
                            "_", getOSName(short=TRUE), "_", initials,
                            "_", gsub("-", "", x=Sys.Date() %>% as.character()))
 
@@ -354,7 +355,7 @@ renderReport <- function(results, packages, fullname, initials=NULL, output_dir,
       paste0(collapse="")
   }
 
-  rmdFilename <- ifelse("ecampsis" %in% packages,
+  rmdFilename <- ifelse(eCampsisQual,
                         "qualification_ecampsis_template.Rmd",
                         "qualification_campsis_template.Rmd")