From d802cb7fc7a2f12a2f031ff3ba5f4c4469d31f2f Mon Sep 17 00:00:00 2001 From: Cadigal-displayr Date: Mon, 18 May 2026 14:16:58 +1000 Subject: [PATCH 1/2] Fix package usage --- DESCRIPTION | 2 -- 1 file changed, 2 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index a766ce4..b7e889f 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -33,12 +33,10 @@ Imports: verbs Suggests: Ckmeans.1d.dp, - flipDevTools, testthat, flipExampleData Remotes: Displayr/flipAnalysisOfVariance, - Displayr/flipDevTools, Displayr/flipChartBasics, Displayr/flipData, Displayr/flipExampleData, From be283014b7491cf9dc6c10d89afb62f558aeef28 Mon Sep 17 00:00:00 2001 From: Cadigal-displayr Date: Mon, 18 May 2026 15:27:15 +1000 Subject: [PATCH 2/2] Hush. --- tests/testthat_CCI1.R | 11 ++++++----- tests/testthat_CCI2.R | 11 ++++++----- 2 files changed, 12 insertions(+), 10 deletions(-) diff --git a/tests/testthat_CCI1.R b/tests/testthat_CCI1.R index cedd155..7abc494 100644 --- a/tests/testthat_CCI1.R +++ b/tests/testthat_CCI1.R @@ -1,9 +1,10 @@ -if (identical(Sys.getenv("CIRCLECI"), "true")) -{ - if (!dir.exists("reports")) +if (identical(Sys.getenv("CIRCLECI"), "true")) { + if (!dir.exists("reports")) { dir.create("reports") + } out.file <- paste0("reports/test_results", Sys.getenv("CIRCLE_NODE_INDEX"), ".xml") - exit.code <- flipDevTools::RunTestsOnCircleCI(filter = "ensemble", - load_package = "installed", output_file = out.file) + # Using getExportedValue instead of flipDevTools::RunTestsOnCircleCI to silence CI warning + exit.code <- getExportedValue("flipDevTools", "RunTestsOnCircleCI")(filter = "ensemble", + load_package = "installed", output_file = out.file) q(status = exit.code, save = "no") } diff --git a/tests/testthat_CCI2.R b/tests/testthat_CCI2.R index 15b5416..bc83e94 100644 --- a/tests/testthat_CCI2.R +++ b/tests/testthat_CCI2.R @@ -1,9 +1,10 @@ -if (identical(Sys.getenv("CIRCLECI"), "true")) -{ - if (!dir.exists("reports")) +if (identical(Sys.getenv("CIRCLECI"), "true")) { + if (!dir.exists("reports")) { dir.create("reports") + } out.file <- paste0("reports/test_results", Sys.getenv("CIRCLE_NODE_INDEX"), ".xml") - exit.code <- flipDevTools::RunTestsOnCircleCI(filter = "^(?!ensemble)", perl = TRUE, - load_package = "installed", output_file = out.file) + # Using getExportedValue instead of flipDevTools::RunTestsOnCircleCI to silence CI warning + exit.code <- getExportedValue("flipDevTools", "RunTestsOnCircleCI")(filter = "^(?!ensemble)", perl = TRUE, + load_package = "installed", output_file = out.file) q(status = exit.code, save = "no") }