syncdr env

Author: RossanaTat

R/aaa.R

@@ -1 +1 @@
-sync.env <-  new.env(parent = emptyenv())
+syncdr.env <-  new.env(parent = emptyenv())

R/toy_dirs.R

@@ -113,12 +113,13 @@ toy_dirs <- function(verbose = FALSE) {
   # Assign to environment
   assign(x     = "left",
          value = left,
-         envir = sync.env)
+         envir = syncdr.env)
 
   assign(x     = "right",
          value = right,
-         envir = sync.env)
+         envir = syncdr.env)
 
-  return(sync.env)
+  #return(sync.env)
+  invisible(TRUE)
 
 }