<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>