From ec241be873e87cf541e3ccd3a09e259b247aa552 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Max=20L=C3=BCbke?= <mluebke@uni-potsdam.de>
Date: Wed, 12 Jun 2024 09:37:36 +0200
Subject: [PATCH] refactor: Rework deferred R function evaluation applied
 commit fix: Unique pointer behaviour of `global_rt_setup` was messed up

---
 src/poet.cpp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/poet.cpp b/src/poet.cpp
index 83ede5510..bcacc8dc5 100644
--- a/src/poet.cpp
+++ b/src/poet.cpp
@@ -227,8 +227,9 @@ ParseRet parseInitValues(char **argv, RuntimeParameters &params) {
     Rcpp::List init_params_(ReadRObj_R(init_file));
     params.init_params = init_params_;
 
-    global_rt_setup = std::make_unique<Rcpp::List>(source_R(runtime_file, Rcpp::Named("local", true)));
-    *global_rt_setup = (*global_rt_setup)["value"];
+    global_rt_setup = std::make_unique<Rcpp::List>();
+    *global_rt_setup = source(runtime_file, Rcpp::Named("local", true));
+    *global_rt_setup = global_rt_setup->operator[]("value");
 
     // MDL add "out_ext" for output format to R setup
     (*global_rt_setup)["out_ext"] = params.out_ext;