I have two version of following code , calling the function copy() in
loop gives error.
I could not figure out why is it so?
-----------------------------------------------------------------------------------------------------------------------
#include <R.h>
#include <R_ext/Applic.h>
#include <Rinternals.h>
#include <RInside.h>
using namespace std;
void copy(int *sum,int argc, char *argv[])
{
RInside R(argc, argv);
R.parseEvalQ("input<-c(1,2,3,4,5)");
vector<int> summ(5,0);
summ=R["input"];
for(int i=0;i<5;i++)sum[i]=summ[i];
return;
}
int main(int argc, char *argv[])
{
int sum[50];
copy(sum,argc, argv);
for(int i=0;i<5;i++)std::cout << "value at "<<i+1<<" : " << sum[i]
<< std::endl ;
return(0);
}
--------------
output
value at 1 : 1
value at 2 : 2
value at 3 : 3
value at 4 : 4
value at 5 : 5
--------------------------------------------------------------------------------------------------------------------------------
#include <R.h>
#include <R_ext/Applic.h>
#include <Rinternals.h>
#include <RInside.h>
using namespace std;
void copy(int *sum,int argc, char *argv[])
{
RInside R(argc, argv);
R.parseEvalQ("input<-c(1,2,3,4,5)");
vector<int> summ(5,0);
summ=R["input"];
for(int i=0;i<5;i++)sum[i]=summ[i];
return;
}
int main(int argc, char *argv[])
{
int sum[50];
for(int i=0;i<5;i++)
copy(sum,argc, argv);
for(int i=0;i<5;i++)std::cout << "value at "<<i+1<<" : " << sum[i] <<
std::endl ;
return(0);
}
----------------------------
Error while running
Error in .Call("R_isMethodsDispatchOn", onOff, PACKAGE = "base") :
Incorrect number of arguments (2), expecting 1 for R_isMethodsDispatchOn
terminate called after throwing an instance of 'Rcpp::binding_not_found'
what(): binding not found: '.AutoloadEnv'
Aborted
--
Amar Kumar Nandan
Karnataka, India, 560100
http://aknandan.co.nr
_______________________________________________
Rcpp-devel mailing list
[email protected]
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-devel
