Update 'perf' support

Author: StuartWheater

tests/testthat/perf_tests/perf_rate.R

@@ -1,5 +1,5 @@
 #-------------------------------------------------------------------------------
-# Copyright (c) 2024 Arjuna Technologies, Newcastle upon Tyne. All rights reserved.
+# Copyright (c) 2024-2025 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,7 +8,8 @@
 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
 #-------------------------------------------------------------------------------
 
-.perf.reference.filename <- 'perf_files/default_perf_profile.csv'
+.perf.reference.filename      <- 'perf_files/default_perf_profile.csv'
+.perf.reference.save.filename <- NULL
 
 .perf.reference <- NULL
 
@@ -22,7 +23,13 @@ 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
 }
@@ -47,4 +54,3 @@ perf.reference.tolerance.upper <- function(perf.ref.name) {
 
     return(as.numeric(.perf.reference[which(.perf.reference$refer_name == perf.ref.name),]$upper_tolerance))
 }
-