From 8e5d2fff5a19d9f50ed444790cce030233d954f0 Mon Sep 17 00:00:00 2001 From: orichters Date: Tue, 25 Jun 2024 17:29:41 +0200 Subject: [PATCH] relax summation check strictness --- R/convGDX2MIF.R | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/R/convGDX2MIF.R b/R/convGDX2MIF.R index cbfa0aa1..50718201 100644 --- a/R/convGDX2MIF.R +++ b/R/convGDX2MIF.R @@ -151,9 +151,8 @@ convGDX2MIF <- function(gdx, gdx_ref = NULL, file = NULL, scenario = "default", sumChecks <- checkSummations( mifFile = output, dataDumpFile = NULL, outputDirectory = NULL, summationsFile = "extractVariableGroups", - absDiff = 1.5e-8, relDiff = 1e-8, roundDiff = TRUE - ) %>% - filter(abs(.data$diff) >= 1.5e-8), + absDiff = 0.01, relDiff = 0.02, roundDiff = TRUE + ), type = 'message') %>% .reportSummationErrors(testthat = testthat) @@ -161,8 +160,7 @@ convGDX2MIF <- function(gdx, gdx_ref = NULL, file = NULL, scenario = "default", mifFile = output, dataDumpFile = NULL, outputDirectory = NULL, summationsFile = system.file('extdata/additional_summation_checks.csv', package = 'remind2'), - absDiff = 1.5e-8, relDiff = 1e-8, roundDiff = TRUE) %>% - filter(abs(.data$diff) >= 1.5e-8) %>% + absDiff = 0.01, relDiff = 0.02, roundDiff = TRUE) %>% bind_rows(sumChecks), type = 'message' ) %>%