Set a protected R object to the external poitner.

set_xptr_protected(s, protected)

Arguments

s

an externalptr object

protected

an R object