R调用c++

#include <Rcpp.h>
 
using namespace Rcpp;
 
RcppExport SEXP convert(SEXP Rchar, SEXP Rint, SEXP Rdoub, SEXP Rlogi, 
						SEXP Rchvec, SEXP Rnumvec, SEXP Rlogivec, 
						SEXP Rnummat, SEXP Rchmat, SEXP Rlogimat)
{
	const char* s	=	as<const char*>(Rchar);
	double f	=	as<double>(Rdoub);
	int n		=	as<int>(Rint);
	bool b		=	as<bool>(Rlogi);
	//vectors
	CharacterVector chVec(Rchvec);
	LogicalVector boolVec(Rlogivec);
	NumericVector doubleVect(Rnumvec);
	//matrix
	NumericMatrix doubleMat(Rnummat);
	LogicalMatrix boolMat(Rlogimat);
	CharacterMatrix chMat(Rchmat);
 
	//returned type will be converted by RcppExport macro.
	return List::create(Named("chVec")=chVec,
						Named("boolVec")=boolVec,
						Named("doubleVect")=doubleVect,
						Named("doubleMat")=Rnummat,
						Named("boolMat")=boolMat,
						Named("chMat")=chMat);
}

export PKG_LIBS=`Rscript -e "Rcpp:::LdFlags()"`
export PKG_CXXFLAGS=`Rscript -e "Rcpp:::CxxFlags()"`
R CMD SHLIB test.cpp

Rscript -e "Rcpp:::SHLIB('test.cpp')"

 dyn.load("/path/to/your/code/test.so")
 .Call("convert","qiuworld",100,9.99,TRUE,letters[1:5],1:5,c(T,T,F,F),matrix(1:20,4,5),matrix(LETTERS[1:20],4,5),matrix(c(T,T,F,F),2,2))