From da4d7e9d540088716779d8749be3a766b96d7299 Mon Sep 17 00:00:00 2001 From: orichters Date: Thu, 15 Feb 2024 18:17:22 +0100 Subject: [PATCH] remove restriction on 30 days --- tests/testthat/test-convGDX2mif.R | 7 ------- 1 file changed, 7 deletions(-) diff --git a/tests/testthat/test-convGDX2mif.R b/tests/testthat/test-convGDX2mif.R index 4501112a..dd985a07 100644 --- a/tests/testthat/test-convGDX2mif.R +++ b/tests/testthat/test-convGDX2mif.R @@ -40,12 +40,6 @@ test_that("Test if REMIND reporting is produced as it should and check data inte warn = FALSE)) } - .no_older_than_30_days <- function(path) { - time <- strptime(sub(paste0(".*(", datetimepattern, ").*"), "\\1", path), - format = "%Y-%m-%d_%H.%M.%S") - return((Sys.time() - time) < as.difftime(30, units = "days")) - } - .latest_run_of_scenario <- function(path) { # sort by scenario and decreasing time, latest runs come first path <- path %>% @@ -62,7 +56,6 @@ test_that("Test if REMIND reporting is produced as it should and check data inte return(c(gdxPaths, Sys.glob(paste0("/p/projects/remind/modeltests/remind/output/", scenario, "*/fulldata.gdx")) %>% - Filter(.no_older_than_30_days, x = .) %>% Filter(.did_REMIND_finish, x = .) %>% .latest_run_of_scenario())) }