The R Project SVN – R – Diff – /trunk/src/library/base/man/bindenv.Rd

   and variables linked to data bases to be implemented.  It may also
   be useful for making thread-safe versions of some system globals.
+}
 \examples{
 # locking environments
-e<-new.env()
+e <- new.env()
-assign("x",1, env=e)
+assign("x", 1, env = e)
-get("x",env=e)
+get("x", env = e)
 lockEnvironment(e)
-get("x",env=e)
+get("x", env = e)
-assign("x",2, env=e)
+assign("x", 2, env = e)
-try(assign("y",2, env=e)) # error
+try(assign("y", 2, env = e)) # error
 # locking bindings
-e<-new.env()
+e <- new.env()
-assign("x",1, env=e)
+assign("x", 1, env = e)
-get("x",env=e)
+get("x", env = e)
 lockBinding("x", e)
-try(assign("x",2, env=e)) # error
+try(assign("x", 2, env = e)) # error
 unlockBinding("x", e)
-assign("x",2, env=e)
+assign("x", 2, env = e)
-get("x",env=e)
+get("x", env = e)
 # active bindings
-f<-local({
+f <- local( {
     x <- 1
     function(v) {
        if (missing(v))
            cat("get\n")
        else {
+    }
 })
 makeActiveBinding("fred", f, .GlobalEnv)
 bindingIsActive("fred", .GlobalEnv)
 fred
-fred<-2
+fred <- 2
 fred
+}
 \keyword{internal}
 \author{Luke Tierney}

The R Project SVN R