exporting C++ object into R using Rcpp and exposing some of the class methods from external C++ library

Question

I am trying to return an object in an Rcpp based package in which is of type libsbml::Model from the libsbml C++ library

In the end, I want my package to be able to do something like this in R

m <- getModel("text.xml")
m$getListofParameters

I am trying the following to return the model

// [[Rcpp::export]]
SEXP getModel (std::string fname) {

  libsbml::SBMLReader reader;
  libsbml::SBMLDocument* document = reader.readSBMLFromFile(fname);

  libsbml::Model* model = document->getModel();

  // Rcpp::XPtr<libsbml::Model> modelPtr(model);
  // return Rcpp::wrap(modePtr);

  return Rcpp::wrap(*model);

}

It is giving me an obvious error, cannot initialize a variable of type "SEXP' (aka 'SEXPREC *') with an lvalue of type 'libsbml::Model *const'

probably because I need to expand wrap to return libsbml::Model type (I think), based on a recent article in Rcpp gallery. Am I on the right track with this thinking? It seems like a huge task because libsbml::Model is a huge class and I am a novice in C++ with no experience in object-oriented programming.

I also attempted the following code (using Rcpp modules)

RCPP_MODULE(sbModel){

  using namespace Rcpp ;

  // we expose the class libsbml::Model as "Model" on the R side
  class_<libsbml::Model>("Model")

    // exposing the default constructor
    .constructor<unsigned int, unsigned int>("Creates a new Model using the given SBML level and version values.")

    // exposing member functions -- taken directly from libsbml::Model
    .method( "getListofParameters", &libsbml::Model::getListOfParameters(),"Get the list of Parameters of the model")

}

in order to expose some of the methods of libsbml::Model class. But I am getting the following message on Clean and Rebuild command on package

call to non-static member function without an object argument

Sorry for the vague question, but any pointers on how to achieve my final goal of exporting libsbml::Model into R and exposing some of fields of that class would be really appreciated. The final version of code can be found at -

https://github.com/sn248/Rcppsbml/blob/master/src/getModel.cpp