[Rcpp-devel] error while calling function in loop

[nandan amar]

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