From ff553039f92ebd09ff1ed226b215a83794e54eaf Mon Sep 17 00:00:00 2001 From: Stuart Wheater Date: Fri, 10 Apr 2026 13:07:37 +0100 Subject: [PATCH 1/2] Permit perf test duration to be set, seconds, by environment variable 'PERF_DURATION_SEC' --- tests/testthat/test-perf-conndisconn.R | 4 ++-- tests/testthat/test-perf-ds.abs.R | 4 ++-- tests/testthat/test-perf-ds.asInteger.R | 4 ++-- tests/testthat/test-perf-ds.asList.R | 4 ++-- tests/testthat/test-perf-ds.asNumeric.R | 4 ++-- tests/testthat/test-perf-ds.assign.R | 4 ++-- tests/testthat/test-perf-ds.class.R | 4 ++-- tests/testthat/test-perf-ds.colnames.R | 4 ++-- tests/testthat/test-perf-ds.exists.R | 4 ++-- tests/testthat/test-perf-ds.length.R | 4 ++-- tests/testthat/test-perf-ds.mean.R | 6 +++--- tests/testthat/test-perf-void.R | 4 ++-- 12 files changed, 25 insertions(+), 25 deletions(-) diff --git a/tests/testthat/test-perf-conndisconn.R b/tests/testthat/test-perf-conndisconn.R index 4bcc2a10..4fb2fd69 100644 --- a/tests/testthat/test-perf-conndisconn.R +++ b/tests/testthat/test-perf-conndisconn.R @@ -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. @@ -22,7 +22,7 @@ disconnect.studies.dataset.cnsim() # context("conndisconn::perf::simple0") test_that("simple connect - disconnect performance", { - .durationSec <- 120 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "120")) # defaults to 120 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.abs.R b/tests/testthat/test-perf-ds.abs.R index e431c20e..c17ca0ce 100644 --- a/tests/testthat/test-perf-ds.abs.R +++ b/tests/testthat/test-perf-ds.abs.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.abs::perf:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.asInteger.R b/tests/testthat/test-perf-ds.asInteger.R index 2e816320..99b5cbce 100644 --- a/tests/testthat/test-perf-ds.asInteger.R +++ b/tests/testthat/test-perf-ds.asInteger.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER")) # context("ds.asInteger::perf:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.asList.R b/tests/testthat/test-perf-ds.asList.R index a0f65dda..81d1de24 100644 --- a/tests/testthat/test-perf-ds.asList.R +++ b/tests/testthat/test-perf-ds.asList.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.asList::perf:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.asNumeric.R b/tests/testthat/test-perf-ds.asNumeric.R index 33fcf490..2beea8be 100644 --- a/tests/testthat/test-perf-ds.asNumeric.R +++ b/tests/testthat/test-perf-ds.asNumeric.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER")) # context("ds.asNumeric::perf:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.assign.R b/tests/testthat/test-perf-ds.assign.R index d118eb42..f0b73e1d 100644 --- a/tests/testthat/test-perf-ds.assign.R +++ b/tests/testthat/test-perf-ds.assign.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.assign::perf::0") test_that("performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.class.R b/tests/testthat/test-perf-ds.class.R index f90927ff..95503c94 100644 --- a/tests/testthat/test-perf-ds.class.R +++ b/tests/testthat/test-perf-ds.class.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.class::perf::combine:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.colnames.R b/tests/testthat/test-perf-ds.colnames.R index 7382ecf6..98eb81d2 100644 --- a/tests/testthat/test-perf-ds.colnames.R +++ b/tests/testthat/test-perf-ds.colnames.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.colnames::perf:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.exists.R b/tests/testthat/test-perf-ds.exists.R index 123d7e80..a91b3893 100644 --- a/tests/testthat/test-perf-ds.exists.R +++ b/tests/testthat/test-perf-ds.exists.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.exists::perf::combine:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.length.R b/tests/testthat/test-perf-ds.length.R index 6105cf99..076c12e9 100644 --- a/tests/testthat/test-perf-ds.length.R +++ b/tests/testthat/test-perf-ds.length.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.length::perf::combine:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.mean.R b/tests/testthat/test-perf-ds.mean.R index 03d0ac78..8835d864 100644 --- a/tests/testthat/test-perf-ds.mean.R +++ b/tests/testthat/test-perf-ds.mean.R @@ -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. @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.mean::perf::combine:0") test_that("combine - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time @@ -52,7 +52,7 @@ test_that("combine - performance", { # context("ds.mean::perf::split:0") test_that("split - performance", { - .durationSec <- 30 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-void.R b/tests/testthat/test-perf-void.R index 3e2f749c..a0a5940c 100644 --- a/tests/testthat/test-perf-void.R +++ b/tests/testthat/test-perf-void.R @@ -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. @@ -20,7 +20,7 @@ # context("void::perf::void::0") test_that("simple void performance", { - .durationSec <- 60 # seconds + .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "60")) # defaults to 60 seconds .count <- 0 .start.time <- Sys.time() .current.time <- .start.time From 5a3bf58c53ea4fa91f54c8f2fd1a830234024b31 Mon Sep 17 00:00:00 2001 From: Stuart Wheater Date: Mon, 13 Apr 2026 14:43:11 +0100 Subject: [PATCH 2/2] Permit perf test duration to be set, seconds, by environment variable 'PERF_DURATION_SEC' --- tests/testthat/perf_tests/perf_rate.R | 5 +++++ tests/testthat/test-perf-conndisconn.R | 2 +- tests/testthat/test-perf-ds.abs.R | 2 +- tests/testthat/test-perf-ds.asInteger.R | 2 +- tests/testthat/test-perf-ds.asList.R | 2 +- tests/testthat/test-perf-ds.asNumeric.R | 2 +- tests/testthat/test-perf-ds.assign.R | 2 +- tests/testthat/test-perf-ds.class.R | 2 +- tests/testthat/test-perf-ds.colnames.R | 2 +- tests/testthat/test-perf-ds.exists.R | 2 +- tests/testthat/test-perf-ds.length.R | 2 +- tests/testthat/test-perf-ds.mean.R | 4 ++-- tests/testthat/test-perf-void.R | 2 +- 13 files changed, 18 insertions(+), 13 deletions(-) diff --git a/tests/testthat/perf_tests/perf_rate.R b/tests/testthat/perf_tests/perf_rate.R index a7f85348..8d762207 100644 --- a/tests/testthat/perf_tests/perf_rate.R +++ b/tests/testthat/perf_tests/perf_rate.R @@ -57,6 +57,11 @@ perf.reference.save <- function(perf.ref.name, rate, tolerance.lower, tolerance. .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() diff --git a/tests/testthat/test-perf-conndisconn.R b/tests/testthat/test-perf-conndisconn.R index 4fb2fd69..ab257aeb 100644 --- a/tests/testthat/test-perf-conndisconn.R +++ b/tests/testthat/test-perf-conndisconn.R @@ -22,7 +22,7 @@ disconnect.studies.dataset.cnsim() # context("conndisconn::perf::simple0") test_that("simple connect - disconnect performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "120")) # defaults to 120 seconds + .durationSec <- perf.testduration(120) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.abs.R b/tests/testthat/test-perf-ds.abs.R index c17ca0ce..325d715c 100644 --- a/tests/testthat/test-perf-ds.abs.R +++ b/tests/testthat/test-perf-ds.abs.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.abs::perf:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.asInteger.R b/tests/testthat/test-perf-ds.asInteger.R index 99b5cbce..5e1b887a 100644 --- a/tests/testthat/test-perf-ds.asInteger.R +++ b/tests/testthat/test-perf-ds.asInteger.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER")) # context("ds.asInteger::perf:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.asList.R b/tests/testthat/test-perf-ds.asList.R index 81d1de24..6c2f3db9 100644 --- a/tests/testthat/test-perf-ds.asList.R +++ b/tests/testthat/test-perf-ds.asList.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.asList::perf:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.asNumeric.R b/tests/testthat/test-perf-ds.asNumeric.R index 2beea8be..eb0695e4 100644 --- a/tests/testthat/test-perf-ds.asNumeric.R +++ b/tests/testthat/test-perf-ds.asNumeric.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("GENDER")) # context("ds.asNumeric::perf:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.assign.R b/tests/testthat/test-perf-ds.assign.R index f0b73e1d..47e51ca5 100644 --- a/tests/testthat/test-perf-ds.assign.R +++ b/tests/testthat/test-perf-ds.assign.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.assign::perf::0") test_that("performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.class.R b/tests/testthat/test-perf-ds.class.R index 95503c94..023a404a 100644 --- a/tests/testthat/test-perf-ds.class.R +++ b/tests/testthat/test-perf-ds.class.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.class::perf::combine:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.colnames.R b/tests/testthat/test-perf-ds.colnames.R index 98eb81d2..8943c577 100644 --- a/tests/testthat/test-perf-ds.colnames.R +++ b/tests/testthat/test-perf-ds.colnames.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.colnames::perf:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.exists.R b/tests/testthat/test-perf-ds.exists.R index a91b3893..92a10cab 100644 --- a/tests/testthat/test-perf-ds.exists.R +++ b/tests/testthat/test-perf-ds.exists.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.exists::perf::combine:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.length.R b/tests/testthat/test-perf-ds.length.R index 076c12e9..c1ac11c9 100644 --- a/tests/testthat/test-perf-ds.length.R +++ b/tests/testthat/test-perf-ds.length.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.length::perf::combine:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-ds.mean.R b/tests/testthat/test-perf-ds.mean.R index 8835d864..6b599368 100644 --- a/tests/testthat/test-perf-ds.mean.R +++ b/tests/testthat/test-perf-ds.mean.R @@ -21,7 +21,7 @@ connect.studies.dataset.cnsim(list("LAB_TSC", "LAB_TRIG")) # context("ds.mean::perf::combine:0") test_that("combine - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time @@ -52,7 +52,7 @@ test_that("combine - performance", { # context("ds.mean::perf::split:0") test_that("split - performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "30")) # defaults to 30 seconds + .durationSec <- perf.testduration(30) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time diff --git a/tests/testthat/test-perf-void.R b/tests/testthat/test-perf-void.R index a0a5940c..1325bfea 100644 --- a/tests/testthat/test-perf-void.R +++ b/tests/testthat/test-perf-void.R @@ -20,7 +20,7 @@ # context("void::perf::void::0") test_that("simple void performance", { - .durationSec <- base::as.integer(base::Sys.getenv("PERF_DURATION_SEC", unset = "60")) # defaults to 60 seconds + .durationSec <- perf.testduration(60) .count <- 0 .start.time <- Sys.time() .current.time <- .start.time