fixs smreal bug

nmfs-ost · Nov 18, 2023 · f1d2e09 · f1d2e09
1 parent cf3b817
commit f1d2e09
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 14 deletions.
diff --git a/inst/include/SharedRList.hpp b/inst/include/SharedRList.hpp
@@ -159,7 +159,7 @@ class SharedList : public SharedRObject {
             } else if (type == SMTYPE::SMNUMERIC) {
 
                 t.sm_name = "na";
-                t.type = SMTYPE::SMLIST;
+                t.type = SMTYPE::SMNUMERIC;
                 t.data = object;
                 t.value = Rcpp::as<double>(object);
                 (*this->tlist_m)[key] = t;

diff --git a/test/test_sm.R b/test/test_sm.R
@@ -67,23 +67,23 @@ if (parent == TRUE) {#parent process
 
   SML <- new(processR::SharedList)
   SML$create("SML")
-  # SML$set(sm_name, SMV)
+  SML$set(sm_name, SMV)
 
 
-  SML2 <- new(processR::SharedList)
-  SML2$open("SML")
+  # SML2 <- new(processR::SharedList)
+  # SML2$open("SML")
   # SMV2<-SML2$get(sm_name)
-  pi<- 3.1549
-  print(typeof(pi))
-  SML2$set("PI",3.1549)
-  print(SML2$get("PI"))
-  q()
+  # pi<- 3.1549
+  # print(typeof(pi))
+  # SML2$set("PI",3.1549)
+  # print(SML2$get("PI"))
+  # q()
   # SML2$set("double", 3,1459)
   # PI_ <-SML$get("double")
   # print(PI_)
-  print(SMV2$size())
-  print(typeof(SMV2))
- print(SMV2$size())
+  # print(SMV2$size())
+  # print(typeof(SMV2))
+ # print(SMV2$size())
 
 
 
@@ -139,10 +139,11 @@ if (parent == TRUE) {#parent process
   # 
   SML <- new(processR::SharedList)
   SML$open("SML")
-  
+
   SMV<-SML$get(sm_name)
+  SML$set("PI",3.1549)
   # print(SMV2$size())
-  # show(SMV)
+  show(SMV)
 
   print("still child")
   #modify segment of the shared vector