Set a protected R object to the external poitner.
set_xptr_protected(s, protected)
s
an externalptr object
externalptr
protected
an R object