srcrefs about constructive HOT 2 CLOSED

x <- quote({
  1+1
  2
})

library(constructive)
construct(attributes(x), opts_environment(predefine = TRUE))
#> ..env.1.. <- new.env(parent = emptyenv()) |>
#>   structure(class = c("srcfilecopy", "srcfile"))
#> ..env.1..$lines <- "x <- quote({\n  1+1\n  2\n})\n"
#> ..env.1..$filename <- ""
#> list(
#>   srcref = list(
#>     c(1L, 12L, 1L, 12L, 12L, 12L, 1L, 1L) |>
#>       structure(srcfile = ..env.1.., class = "srcref"),
#>     c(2L, 3L, 2L, 5L, 3L, 5L, 2L, 2L) |>
#>       structure(srcfile = ..env.1.., class = "srcref"),
#>     c(3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L) |>
#>       structure(srcfile = ..env.1.., class = "srcref")
#>   ),
#>   srcfile = ..env.1..,
#>   wholeSrcref = c(1L, 0L, 4L, 1L, 0L, 1L, 1L, 4L) |>
#>     structure(srcfile = ..env.1.., class = "srcref")
#> )