Jj Allaire has written at Sat, 29 Jul 2017 07:58:13 -0400
The best you can do is to get the pointer to the function (not sure if
that does what you are hoping for):
func <- Rcpp::cppFunction("int foo() { return 1; }")
> body(func)
.Primitive(".Call")(<pointer: 0x103bf0f40>)
And to narrow even more:
> Rcpp::cppFunction("int foo() { return 1; }")
> as.list(body(foo))[[2]]
<pointer: 0x7f01d493fae0>
attr(,"class")
[1] "NativeSymbol"
Serguei.
_______________________________________________
Rcpp-devel mailing list
Rcpp-devel@lists.r-forge.r-project.org
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
