computeObjectUid: Compute Object UID (generic)

In rappster/reactr: Reactive object bindings with built-in caching and push functionality

Description

Computes the UID of an object based on its name/ID (id) and the environment where it has been assigned to (where).

Usage

computeObjectUid(id, where = parent.frame(), ...)

Arguments

id	character. Name of the reactive object.
where	environment. Environment to create the object in.
...	Further arguments to be passed to subsequent functions/methods.

Value

character. Object UID (checksum).

Author(s)

Janko Thyson [e-mail]

References

http://github.com/Rappster/reactr

See Also

setReactive

Examples

## Not run: 

##------------------------------------------------------------------------------
## W/o explicit 'where' //
##------------------------------------------------------------------------------

id_1 <- "x_1"
id_2 <- "x_2"

setReactive(id = id_1, value = 10)
setReactive(id = id_2, value = function() {
  .ref_1 <- get(x = id_1)
})
x_1
x_2

uid_1 <- computeObjectUid(id = id_1)
uid_1
uid_2 <- computeObjectUid(id = id_2)
uid_2

## If these UIDs are available in the registry, they are correct //
registry <- getRegistry()
exists(uid_1, registry)
exists(uid_2, registry)

## Clean up //
rm(x_1)
rm(x_2)
resetRegistry()

##------------------------------------------------------------------------------
## With explicit 'where' //
##------------------------------------------------------------------------------

id_1 <- "x_1"
id_2 <- "x_2"
where <- new.env()

setReactive(id = id_1, value = 10, where = where)
setReactive(id = id_2, value = function() {
  .ref_1 <- get(x = id_1)
}, where = where)
where$x_1
where$x_2

uid_1 <- computeObjectUid(id = id_1, where = where)
uid_1
uid_2 <- computeObjectUid(id = id_2, where = where)
uid_2

## If these UIDs are available in the registry, they are correct //
registry <- getRegistry()
exists(uid_1, registry)
exists(uid_2, registry)

## Clean up //
rm(where)
resetRegistry()


## End(Not run)

rappster/reactr documentation built on May 26, 2019, 11:56 p.m.