Get the underlying segment from a shared vector
Examples
# \donttest{
x <- as_shared(1:100)
shared_segment(x)
#> <shard_segment>
#> Size: 400 bytes
#> Backing: shm
#> Path: /shd1900_6a5a7893_6a5a78a0
#> Read-only: TRUE
#> Owns segment: TRUE
# }