message("TESTING: objectSize()...")
library("R.oo")
## Simple object
x <- 1:100
y0 <- object.size(x)
y <- objectSize(x)
print(y)
stopifnot(y == y0)
## A list
x <- as.list(1:100)
y0 <- object.size(x)
y <- objectSize(x)
print(y)
stopifnot(y == y0)
## An environment
env <- new.env()
env$a <- 1:100
env$b <- as.list(1:100)
env$c <- new.env()
y0 <- object.size(env)
print(y0)
y <- objectSize(env)
print(y)
## An environment with circular dependencies
env <- new.env()
env$a <- 1:100
env$env <- env
y0 <- object.size(env)
print(y0)
y <- objectSize(env)
print(y)
message("TESTING: objectSize()...DONE")
Generated by dwww version 1.15 on Mon Jun 24 09:28:36 CEST 2024.