From b87d469264ca97ccf9ca42b6b83659986defcdff Mon Sep 17 00:00:00 2001 From: "Ronald.Klasky" Date: Sun, 21 Jan 2024 21:47:05 -0500 Subject: [PATCH] added 2 more copy() commands, still 2 errors? --- tests/testthat/test-rpath.R | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-rpath.R b/tests/testthat/test-rpath.R index b0fd309..c6f3d88 100644 --- a/tests/testthat/test-rpath.R +++ b/tests/testthat/test-rpath.R @@ -935,8 +935,10 @@ testthat::test_that("Rpath Unit Tests", { CurrentJitterFiles <- list(CurrentABForcedMigOutBiomassJitter, CurrentABForcedMigOutCatchJitter, CurrentABForcedMigOutGearCatchJitter, CurrentRK4ForcedMigOutBiomassJitter, CurrentRK4ForcedMigOutCatchJitter, CurrentRK4ForcedMigOutGearCatchJitter) } - REcosystem_AB_Current_Jitter <- rsim.run(REcosystem_scene_jitter,method='AB', years=1:50) - REcosystem_RK4_Current_Jitter <- rsim.run(REcosystem_scene_jitter,method='RK4',years=1:50) + REcosystem_scene_jitter_save <- copy(REcosystem_scene_jitter) + REcosystem_AB_Current_Jitter <- rsim.run(REcosystem_scene_jitter_save, method='AB', years=1:50) + REcosystem_scene_jitter_save <- copy(REcosystem_scene_jitter) + REcosystem_RK4_Current_Jitter <- rsim.run(REcosystem_scene_jitter_save, method='RK4',years=1:50) if (CREATE_BASELINE_FILES) { write.table(REcosystem_AB_Current_Jitter$out_Biomass, file=BaselineJitterFiles[[1]]) write.table(REcosystem_AB_Current_Jitter$out_Catch, file=BaselineJitterFiles[[2]])