<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body smarttemplateinserted="true" bgcolor="#FFFFFF" text="#000000">
<div id="smartTemplate4-quoteHeader">Jj Allaire has written at Sat,
29 Jul 2017 07:58:13 -0400</div>
<blockquote type="cite"
cite="mid:CAKw=oCykabJt7Vz=THWKrDrt0VmT-+1JJZW=27sy7qEzqNg9rg@mail.gmail.com">
<div dir="ltr">The best you can do is to get the pointer to the
function (not sure if that does what you are hoping for):
<div><br>
</div>
<div><span style="color:rgb(80,0,80);font-size:12.8px">func
<- Rcpp::cppFunction("int foo() { return 1; }")</span><br>
</div>
<div><br>
</div>
<div>
<div>> body(func)</div>
<div>.Primitive(".Call")(<pointer: 0x103bf0f40>)</div>
</div>
</div>
</blockquote>
And to narrow even more:<br>
> Rcpp::cppFunction("int foo() { return 1; }")<br>
> as.list(body(foo))[[2]]<br>
<pointer: 0x7f01d493fae0><br>
attr(,"class")<br>
[1] "NativeSymbol"<br>
<br>
Serguei.<br>
</body>
</html>