[Rcpp-devel] Template + Rcpp::List error

[Diego Monteiro]

I will send the complete code and bold the part where it get stuck.

C++ code template created :

namespace Rcpp{
  template<> te::da::DataSourceInfo as (SEXP datasource){
 * Rcpp::List dataSource (datasource);*
  te::da::DataSourceInfo ds;
  Rcpp::String typestring = (dataSource["type"]);
  std::string tstring = typestring;
  if(tstring == "OGR"){

    std::map<std::string, std::string> connInfo;
    Rcpp::List cInfo = dataSource["connInfo"] ;

connInfo.insert(std::pair<std::string,Rcpp::String>("URI",cInfo["URI"]));
    ds.setConnInfo(connInfo);
    ds.setType("OGR");

     }
   return ds
  }
}


Here is where I try to use the template

SEXP getTrajectory(SEXP datasource, SEXP dataset){
 try
  {
    //Indicates the data source
    te::da::DataSourceInfo dsinfo =
Rcpp::as<te::da::DataSourceInfo>(datasource);
   [.....]
   }
}


Here is the R list I send in the "datasource"
$connInfo
[1] "con"

$title
[1] "titl"

$accessDriver
[1] "ad"

$title
[1] "typ"


I send using this method :

setMethod(
  f = "getTrajectory",
  signature = c("DataSourceInfo","DataSetInfo"),
  definition = function(datasource, dataset)
  {
    loadPackages()
    dsource <- list("connInfo"=datasource at connInfo,"title"=datasource at title
,"accessDriver"=datasource at accessDriver,"title"=datasource at type)
    print(dsource)

    dset <- list("tableName"=dataset at tableName)
    c(dset,"phTimeName"=dataset at phTimeName)
    c(dset,"geomName"=dataset at geomName)
    c(dset,"trajId"=dataset at trajId)
    c(dset,"trajName"=dataset at trajName)
    c(dset,"objId"=dataset at trajName)

    traj1 <- getTrajectory(datasource,dataset)
    return (traj1)
  }
)


Is this enough and understandable ?

2016-02-17 20:58 GMT-02:00 Dirk Eddelbuettel <edd at debian.org>:

>
> On 17 February 2016 at 20:28, Diego Monteiro wrote:
> | Hello, I'm trying to implement a conversion from a R type into my own
> Type ,
> | but  in the beginning I am getting an error.
> |
> | The code is like the following :
> | template<> MyType as (SEXP x){
> |
> |   Rcpp::List dataSource(x);
> | [.....]
> | }
> |
> | This is the ERROR:
> | An exception has occurried: could not convert using R function : as.list
> |
> | "x"  is a char list.
> |
> | Thanks for any help.
>
> Can you distill things to a minimal working example?  It is pretty hard for
> us to say something meaningful otherwise.
>
> Dirk
>
> --
> http://dirk.eddelbuettel.com | @eddelbuettel | edd at debian.org
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.r-forge.r-project.org/pipermail/rcpp-devel/attachments/20160217/aefcbe5b/attachment.html>