From 2b327a969427eb8ba5e4e20af33b09e243987a21 Mon Sep 17 00:00:00 2001 From: Claus Hunsen Date: Tue, 20 Mar 2018 15:40:51 +0100 Subject: [PATCH] Fix storage of original project data in NetworkBuilder The ProjectData objects are handled as references in the NetworkBuilder objects, therefore, we need to clone the original data for the case of data cutting. Otherwise, we would just store the very same reference in two attributes. Signed-off-by: Claus Hunsen Signed-off-by: Thomas Bock --- util-networks.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/util-networks.R b/util-networks.R index 165a95b6..78d88ebe 100644 --- a/util-networks.R +++ b/util-networks.R @@ -11,10 +11,10 @@ ## with this program; if not, write to the Free Software Foundation, Inc., ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. ## -## Copyright 2016-2017 by Claus Hunsen +## Copyright 2016-2018 by Claus Hunsen ## Copyright 2017 by Raphael Nömmer ## Copyright 2017 by Christian Hechtl -## Copyright 2017 by Thomas Bock +## Copyright 2017-2018 by Thomas Bock ## All Rights Reserved. @@ -406,8 +406,8 @@ NetworkBuilder = R6::R6Class("NetworkBuilder", initialize = function(project.data, network.conf) { ## check arguments - private$proj.data = verify.argument.for.parameter(project.data, "ProjectData", class(self)[1]) - private$proj.data.original = project.data + private$proj.data.original = verify.argument.for.parameter(project.data, "ProjectData", class(self)[1]) + private$proj.data = project.data$clone() private$network.conf = verify.argument.for.parameter(network.conf, "NetworkConf", class(self)[1]) ## cut data if needed