Set a protected R object to the external poitner.

Set a protected R object to the external poitner.

set_xptr_protected(s, protected)

Arguments

s	an externalptr object
protected	an R object