objectSize() for environment may result in endless recursion

[HenrikBengtsson]

EXAMPLE:

> library("R.oo")
> env <- new.env()
> env$env <- env
> objectSize(env)
Error: evaluation nested too deeply: infinite recursion / options(expressions=)?

> traceback()
1429: objectSize(envir[[name]])
1428: objectSize.environment(envir[[name]])
1427: objectSize(envir[[name]])
1426: objectSize.environment(envir[[name]])
...

SOURCE:

> objectSize.environment
function (envir, ...)
{
    names <- ls(envir = envir, all.names = TRUE, ...)
    size <- 0
    for (name in names) {
        size <- size + objectSize(envir[[name]])
    }
    size
}
<environment: namespace:R.oo>

[HenrikBengtsson]

Solved.