Calling R Function from C++ Calling R Function from C++ r r