tests/testthat/_snaps/s3-externalptr.md

In constructive: Display Idiomatic Code to Construct Most R Objects

externalptr

Code
  dt <- data.table::data.table(a = 1)
  class(dt) <- "data.frame"
  construct(dt, check = FALSE)
Output
  data.frame(a = 1) |>
    structure(.internal.selfref = constructive::.xptr("0x123456789"))
Code
  classed_ptr <- structure(attr(dt, ".internal.selfref"), class = "foo")
  construct(classed_ptr, check = FALSE)
Output
  constructive::.xptr("0x123456789") |>
    structure(class = "foo")

constructive documentation built on Nov. 5, 2025, 7:14 p.m.