Reference count seems to be off

[gaborcsardi]

x <- c(1,2,2.5)
.Internal(inspect(x))
#> @110f22ba8 14 REALSXP g0c3 [REF(1)] (len=3, tl=0) 1,2,2.5

lobstr::sxp(x)
#> [1:0x110f22ba8] <REALSXP[3]> (named:3)

[hadley]

I thought it might be because sxp() is creating a reference, but it seems like more than that:

x <- c(1,2,2.5)
.Internal(inspect(list(x)))
#> @104dee8d0 19 VECSXP g0c1 [] (len=1, tl=0)
#>   @1049ef548 14 REALSXP g0c3 [REF(3)] (len=3, tl=0) 1,2,2.5
lobstr::sxp(list(x))
#> [1:0x104867600] <VECSXP[1]> (named:2)
#>   [2:0x1049ef548] <REALSXP[3]> (named:4)

^{Created on 2024-10-21 with reprex v2.1.0}