Update to perf config

Author: StuartWheater

…/perf_files/armadillo_azure-pipeline.csv …rmadillo_azure-pipeline_perf-profile.csvtests/testthat/perf_files/armadillo_azure-pipeline.csv renamed to tests/testthat/perf_files/armadillo_azure-pipeline_perf-profile.csv tests/testthat/perf_files/armadillo_azure-pipeline.csv renamed to tests/testthat/perf_files/armadillo_azure-pipeline_perf-profile.csv

@@ -1,7 +1,7 @@
 "refer_name","rate","lower_tolerance","upper_tolerance"
 "conndisconn::perf::simple0","0.1654","0.5","2"
 "ds.abs::perf::0","17.30","0.5","2"
-"ds.asCharacter::perf:0","16.75","0.5","2"
+"ds.asCharacter::perf::0","16.75","0.5","2"
 "ds.asDataMatrix::perf:0","17.34","0.5","2"
 "ds.asInteger::perf:0","17.30","0.5","2"
 "ds.asList::perf:0","16.63","0.5","2"

…/perf_files/armadillo_hp-laptop_quay.csv …madillo_hp-laptop-quay_pipeline-perf.csvtests/testthat/perf_files/armadillo_hp-laptop_quay.csv renamed to tests/testthat/perf_files/armadillo_hp-laptop-quay_pipeline-perf.csv tests/testthat/perf_files/armadillo_hp-laptop_quay.csv renamed to tests/testthat/perf_files/armadillo_hp-laptop-quay_pipeline-perf.csv

@@ -0,0 +1,29 @@
+"refer_name","rate","lower_tolerance","upper_tolerance"
+"conndisconn::perf::simple0","0.1340","0.5","2"
+"ds.abs::perf::0","2.822","0.5","2"
+"ds.asCharacter::perf::0","2.393","0.5","2"
+"ds.asDataMatrix::perf::0","2.554","0.5","2"
+"ds.asInteger::perf:0","3.056","0.5","2"
+"ds.asList::perf:0","2.649","0.5","2"
+"ds.asLogical::perf::0","2.629","0.5","2"
+"ds.asMatrix::perf::0","2.717","0.5","2"
+"ds.asNumeric::perf:0","2.629","0.5","2"
+"ds.assign::perf::0","1.709","0.5","2"
+"ds.class::perf::combine:0","3.216","0.5","2"
+"ds.colnames::perf:0","0.941","0.5","2"
+"ds.completeCases::perf::combine:0","2.660","0.5","2"
+"ds.dim::perf::combine:0","25.31","0.5","2"
+"ds.exists::perf::combine:0","3.493","0.5","2"
+"ds.exp::perf::combine:0","17.90","0.5","2"
+"ds.isNA::perf::combine:0","25.43","0.5","2"
+"ds.length::perf::combine:0","25.44","0.5","2"
+"ds.levels::perf::combine:0","3.275","0.5","2"
+"ds.log::perf::0","17.89","0.5","2"
+"ds.ls::perf::combine:0","2.857","0.5","2"
+"ds.mean::perf::combine:0","2.756","0.5","2"
+"ds.mean::perf::split:0","3.547","0.5","2"
+"ds.names::perf::combine:0","2.246","0.5","2"
+"ds.numNA::perf::combine:0","25.46","0.5","2"
+"ds.sqrt::perf::0","2.686","0.5","2"
+"ds.unique::perf::combine:0","2.681","0.5","2"
+"void::perf::void::0","20150","0.5","2"

…hat/perf_files/template_perf_profile.csv …_files/default_template_perf-profile.csvtests/testthat/perf_files/template_perf_profile.csv renamed to tests/testthat/perf_files/default_template_perf-profile.csv tests/testthat/perf_files/template_perf_profile.csv renamed to tests/testthat/perf_files/default_template_perf-profile.csv

@@ -1,5 +1,5 @@
 #-------------------------------------------------------------------------------
-# Copyright (c) 2024-2025 Arjuna Technologies, Newcastle upon Tyne. All rights reserved.
+# Copyright (c) 2024-2026 Arjuna Technologies, Newcastle upon Tyne. All rights reserved.
 #
 # This program and the accompanying materials
 # are made available under the terms of the GNU Public License v3.0.
@@ -8,12 +8,36 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #-------------------------------------------------------------------------------
 
-.perf.reference.filename <- 'perf_files/default_perf_profile.csv'
+.perf.reference.filename.base.prefix  <- 'perf_files/'
+.perf.reference.filename.base.postfix <- '_perf-profile.csv'
+.perf.reference.save.filename         <- NULL
 
 .perf.reference <- NULL
 
 .load.pref <- function() {
-    .perf.reference <<- read.csv(.perf.reference.filename, header = TRUE, sep = ",")
+    if (ds.test_env$driver == "OpalDriver")
+        perf.reference.filename.driver.infix <- "opal"
+    else if (ds.test_env$driver == "ArmadilloDriver")
+        perf.reference.filename.driver.infix <- "armadillo"
+    else if (ds.test_env$driver == "DSLiteDriver")
+        perf.reference.filename.driver.infix <- "dslite"
+    else
+    {
+        perf.reference.filename.infix <- "unknown"
+        warning("Unknown performance profile driver, using 'unknown'")
+    }
+
+    perf.profile <- base::Sys.getenv("PERF_PROFILE")
+    if (nchar(perf.profile) > 0)
+        perf.reference.filename.platform.infix <- base::tolower(perf.profile)
+    else
+    {
+        perf.reference.filename.platform.infix <- "default"
+        warning("Unknown performance profile platform, using 'default'")
+    }
+
+    perf.reference.filename <-  paste(.perf.reference.filename.base.prefix, perf.reference.filename.driver.infix, '_', perf.reference.filename.platform.infix, .perf.reference.filename.base.postfix, sep = "")
+    .perf.reference         <<- read.csv(perf.reference.filename, header = TRUE, sep = ",")
 }
 
 perf.reference.save <- function(perf.ref.name, rate, tolerance.lower, tolerance.upper) {
@@ -22,11 +46,22 @@ perf.reference.save <- function(perf.ref.name, rate, tolerance.lower, tolerance.
 
     .perf.reference[nrow(.perf.reference)+1,] <- c(perf.ref.name, rate, tolerance.lower, tolerance.upper)
 
-    write.csv(.perf.reference, .perf.reference.filename, row.names = FALSE)
+    if (is.null(.perf.reference.save.filename))
+    {
+        .perf.reference.save.filename <<- base::tempfile(pattern = "perf_file_", fileext = ".csv")
+        message(paste0("Additional perf record added to '", .perf.reference.save.filename, "'"))
+    }
+
+    write.csv(.perf.reference, .perf.reference.save.filename, row.names = FALSE)
 
     .perf.reference <<- .perf.reference
 }
 
+# Obtain performance test duration from PERF_DURATION_SEC environment variable, otherwise default.duration argument, otherwise "30".
+perf.testduration <- function(default.duration = 30) {
+    base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = base::as.character(default.duration)))
+}
+
 perf.reference.rate <- function(perf.ref.name) {
     if (is.null(.perf.reference))
         .load.pref()