This function is needed in unusual cases where a C++ function calls
an R function which sets the value of .Random.seed. This function
should be called at the end of the R function to ensure that the new value
.Random.seed is preserved. Otherwise, Rcpp may overwrite it with a
previous value.