Reset diagnostic counters for a shared vector
Examples
# \donttest{
seg <- segment_create(400)
segment_write(seg, 1:100, offset = 0)
x <- shared_vector(seg, "integer", length = 100)
sum(x)
#> [1] 5050
shared_diagnostics(x)$dataptr_calls
#> [1] 0
shared_reset_diagnostics(x)
shared_diagnostics(x)$dataptr_calls
#> [1] 0
# }