tests/profmem,nested.R

In HenrikBengtsson/profmem: Simple Memory Profiling for R

library("profmem")

message("profmem() - nested ...")

if (capabilities("profmem")) {

p1 <- profmem({
  x <- integer(1000)
  p2 <- profmem({
    Y <- matrix(x, nrow = 100, ncol = 10)
  })
  z <- Y + (x + 1)
})
print(p1)
print(p2)

p1 <- profmem({
  x <- integer(1000)
  p2 <- profmem({
    Y <- matrix(x, nrow = 100, ncol = 10)
  })
  z <- Y + (x + 1)
}, threshold = 500L)
print(p1)
print(p2)
  
## Cannot set a higher threshold than already active
p1 <- profmem({ p2 <- profmem({ }, threshold = 1000L) })

p1 <- profmem({
  ## Cannot set a higher threshold than already active
  res <- tryCatch({
    p2 <- profmem({ }, threshold = 1000L)
  }, warning = identify)
  stopifnot(inherits(res, "warning"))
})
print(p1)
print(p2)
 
}

message("profmem() - nested ... DONE")