Merge pull request #449 from StuartWheater/v6.3.5-dev

Reworking of performance profiles

Author: StuartWheater

azure-pipelines.yml

@@ -27,6 +27,7 @@ variables:
   branchName:  $(Build.SourceBranchName)
   test_filter: '*'
   _r_check_system_clock_: 0
+  PERF_PROFILE: 'azure-pipeline'
 
 
 
@@ -188,6 +189,7 @@ jobs:
       # testthat::testpackage uses a MultiReporter, comprised of a ProgressReporter and JunitReporter
       # R output and messages are redirected by sink() to test_console_output.txt
       # junit reporter output is to test_results.xml
+
       sudo R -q -e '
         library(covr);
         write.csv(

…s/testthat/perf_files/azure-pipeline.csv …rf_files/azure-pipeline_perf-profile.csvtests/testthat/perf_files/azure-pipeline.csv renamed to tests/testthat/perf_files/azure-pipeline_perf-profile.csv tests/testthat/perf_files/azure-pipeline.csv renamed to tests/testthat/perf_files/azure-pipeline_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,13 +8,24 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #-------------------------------------------------------------------------------
 
-.perf.reference.filename      <- 'perf_files/default_perf_profile.csv'
-.perf.reference.save.filename <- NULL
+.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 = ",")
+    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.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) {