Merge pull request #472 from rstudio/bugfix/delayed-assign-2

Remove delayedAssign which causes problems for downstream packages
This commit is contained in:
Joe Cheng
2014-05-07 09:56:19 -07:00

View File

@@ -131,10 +131,14 @@ ReactiveEnvironment <- setRefClass(
)
)
delayedAssign(".reactiveEnvironment", ReactiveEnvironment$new())
.getReactiveEnvironment <- function() {
.reactiveEnvironment
}
.getReactiveEnvironment <- local({
reactiveEnvironment <- NULL
function() {
if (is.null(reactiveEnvironment))
reactiveEnvironment <<- ReactiveEnvironment$new()
return(reactiveEnvironment)
}
})
# Causes any pending invalidations to run.
flushReact <- function() {