tests/testthat/helper-object_size.R

expect_same <- function(x) {
  base <- as.vector(object.size(x))
  pryr <- as.vector(object_size(x))

  expect_equal(base, pryr)
}
hadley/pryr documentation built on Jan. 5, 2024, 10:38 a.m.