Merge pull request #2 from patRyserWelch8/1.0.1---with-different-crea…

…tion-of-env with unbind and unsafe op to cope with Opal server ...
patRyserWelch8 · Jan 29, 2021 · e698a41 · e698a41
2 parents b4c390b + b7aa3ca
commit e698a41
Show file tree

Hide file tree

Showing 2 changed files with 14 additions and 0 deletions.
diff --git a/R/decDS.R b/R/decDS.R
@@ -12,8 +12,15 @@ decDS <- function()
    if(is.env.correct())
    {
      env <- get.env()
+
+
+
      if(exists("value", where = env))
      {
+        if(!bindingIsActive("value",env = env))
+        {
+           unlockBinding(sym = "value", env = env)
+        }
         value <- get("value", envir = env)
         assign("value", value - 1, envir = env)
      }

diff --git a/R/incDS.R b/R/incDS.R
@@ -13,8 +13,15 @@ incDS <- function()
    if(is.env.correct())
    {
      env <- get.env()
+
+
      if(exists("value", where = env))
      {
+        if(!bindingIsActive("value",env = env))
+        {
+           unlockBinding(sym = "value", env = env)
+        }
+
         value <- get("value", envir = env)
         assign("value", value + 1, envir = env)
      }