Check if an object is a shared vector
Examples
# \donttest{
seg <- segment_create(400)
segment_write(seg, 1:100, offset = 0)
x <- shared_vector(seg, "integer", length = 100)
is_shared_vector(x)
#> [1] TRUE
is_shared_vector(1:10)
#> [1] FALSE
# }
Check if an object is a shared vector
# \donttest{
seg <- segment_create(400)
segment_write(seg, 1:100, offset = 0)
x <- shared_vector(seg, "integer", length = 100)
is_shared_vector(x)
#> [1] TRUE
is_shared_vector(1:10)
#> [1] FALSE
# }