Call a function from c++ via environment Rcpp

Question

I am considering calling a R function from c++ via environment, but I got an error, here is what I did

#include <Rcpp.h>
using namespace Rcpp;



// [[Rcpp::export]]
NumericVector call(NumericVector x){
  Environment env = Environment::global_env();
  Function f = env["fivenum"];
  NumericVector res = f(x);
  return res;
}

Type call(x), this is what I got,

Error: cannot convert to function

I know I can do it right in another way,

#include <Rcpp.h>

using namespace Rcpp;

// [[Rcpp::export]]
NumericVector callFunction(NumericVector x, Function f) {
    NumericVector res = f(x);
    return res;
}

and type

callFunction(x,fivenum)

But still wondering why first method failed.

fivenum function is not defined in the global environment but in the stats package... not sure but this should work: Environment stats("package:stats"); Function f = stats["fivenum"]; — digEmAll
– digEmAll, Commented Apr 13, 2016 at 9:57

digEmAll · Accepted Answer · 2016-04-13 12:58:55Z

10

fivenum function is not defined in the global environment but in the stats package enviroment, so you should get it from that:

...
Environment stats("package:stats"); 
Function f = stats["fivenum"];
...

edited Apr 13, 2016 at 12:58

answered Apr 13, 2016 at 10:13

digEmAll

57.3k9 gold badges118 silver badges142 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

G4lActus · Accepted Answer · 2023-01-15 11:06:06Z

4

In addition to @digEmAll's answer, I would like to mention a more general approach, which mimics R's packagename::packagefunctionX(...) approach. The advantage is that you don't have to call library("dependend_library"), i.e., in this case, library(stats). That is useful when you call a function from your package, without previously calling library.

// [[Rcpp::export]]
Rcpp::NumericVector five_nums(Rcpp::NumericVector x){
  Rcpp::Environment stats = Rcpp::Environment::namespace_env("stats");
  Rcpp::Function f = stats["fivenum"];
  return Rcpp::NumericVector(f(x));
}

/*** R
 five_nums(stats::rnorm(25, 2, 3))
*/

answered Jan 15, 2023 at 11:06

G4lActus

1197 bronze badges

Collectives™ on Stack Overflow

Call a function from c++ via environment Rcpp

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related