From c6ea81bf1c038b82b7f8f17939377a27ffaec252 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Mon, 31 Oct 2022 16:49:59 +0100
Subject: [PATCH] #187 fix wrapping with create instead of new

---
 R/SWEQuantity.R      | 4 ++--
 R/SWEQuantityRange.R | 4 ++--
 R/SWEText.R          | 4 ++--
 R/SWETime.R          | 4 ++--
 4 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/R/SWEQuantity.R b/R/SWEQuantity.R
index 07fd4c3f..f3bfc970 100644
--- a/R/SWEQuantity.R
+++ b/R/SWEQuantity.R
@@ -60,7 +60,7 @@ SWEQuantity <- R6Class("SWEQuantity",
     #'@description setConstraint
     #'@param constraint constraint
     setConstraint = function(constraint){
-      self$constraint <- SWEElement$new(element = "constraint", value = constraint)
+      self$constraint <- SWEElement$create(element = "constraint", value = constraint)
     },
     
     #'@description setValue
@@ -69,7 +69,7 @@ SWEQuantity <- R6Class("SWEQuantity",
       if(!is.numeric(value)){
         stop("Value should be numeric")
       }
-      self$value <- SWEElement$new(element = "value", value = value)
+      self$value <- SWEElement$create(element = "value", value = value)
     }
   )                        
 )
\ No newline at end of file
diff --git a/R/SWEQuantityRange.R b/R/SWEQuantityRange.R
index ca87f7a9..17636fd0 100644
--- a/R/SWEQuantityRange.R
+++ b/R/SWEQuantityRange.R
@@ -60,7 +60,7 @@ SWEQuantityRange <- R6Class("SWEQuantityRange",
      #'@description setConstraint
      #'@param constraint constraint
      setConstraint = function(constraint){
-       self$constraint <- SWEElement$new(element = "constraint", value = constraint)
+       self$constraint <- SWEElement$create(element = "constraint", value = constraint)
      },
      
      #'@description setValue
@@ -80,7 +80,7 @@ SWEQuantityRange <- R6Class("SWEQuantityRange",
        }else{
          stop("Value should be either a vector or matrix")
        }
-       self$value <- SWEElement$new(element = "value", value = value)
+       self$value <- SWEElement$create(element = "value", value = value)
      }
    )                        
 )
\ No newline at end of file
diff --git a/R/SWEText.R b/R/SWEText.R
index c2d3afb7..3722c8fd 100644
--- a/R/SWEText.R
+++ b/R/SWEText.R
@@ -47,13 +47,13 @@ SWEText <- R6Class("SWEText",
     #'@description setConstraint
     #'@param constraint constraint
     setConstraint = function(constraint){
-      self$constraint <- SWEElement$new(element = "constraint", value = constraint)
+      self$constraint <- SWEElement$create(element = "constraint", value = constraint)
     },
     
     #'@description setValue
     #'@param value value
     setValue = function(value){
-      self$value <- SWEElement$new(element = "value", value = value)
+      self$value <- SWEElement$create(element = "value", value = value)
     }
   )                        
 )
\ No newline at end of file
diff --git a/R/SWETime.R b/R/SWETime.R
index e3f7b38e..ef733cc8 100644
--- a/R/SWETime.R
+++ b/R/SWETime.R
@@ -60,7 +60,7 @@ SWETime <- R6Class("SWETime",
      #'@description setConstraint
      #'@param constraint constraint
      setConstraint = function(constraint){
-       self$constraint <- SWEElement$new(element = "constraint", value = constraint)
+       self$constraint <- SWEElement$create(element = "constraint", value = constraint)
      },
      
      #'@description setValue
@@ -69,7 +69,7 @@ SWETime <- R6Class("SWETime",
        if(!is(value,"Date") && !is(value, "POSIXt")){
          stop("Value should be either a Date or POSIX object")
        }
-       self$value <- SWEElement$new(element = "value", value = value)
+       self$value <- SWEElement$create(element = "value", value = value)
      }
    )                        
 )
\ No newline at end of file