Comment concaténer des listes dans Rcpp

Je veux c()2 listes dans Rcpp, mais j'ai du mal à obtenir la même structure que je le ferais dans R.

Voici quelques données simples + exemple:

rlist = list(a = "123")
listadd = list(typ = "fdb")
c(rlist, listadd)

ce qui me donne ceci:

$a
[1] "123"

$typ
[1] "fdb"

Avec Rcpp, je n'ai trouvé push_backqu'à faire plus ou moins ce que je voulais mais la structure est un peu différente. J'ai également essayé d'utiliser emplace_backsur la base de cette référence mais cela ne semble pas être implémenté dans Rcpp.

cppFunction('
List cLists(List x, List y) {
  x.push_back(y);
  return(x);
}')

ce qui me donne:

cLists(rlist, listadd)
$a
[1] "123"

[[2]]
[[2]]$typ
[1] "fdb"

Sur la base de cette question, je sais que je pourrais utiliser Language("c",x,y).eval();la c()fonction de R et obtenir le résultat correct, mais cela ne semble pas être la bonne manière.

Je me demandais donc comment concaténer correctement des listes dans Rcpp?

EDIT: Sur la base du commentaire de @ Dirk, j'ai essayé de créer une nouvelle liste et de les remplir avec les autres éléments de la liste, mais j'ai perdu les noms des éléments.

cppFunction('
List cLists(List x, List y) {
  int nsize = x.size(); 
  int msize = y.size(); 
  List out(nsize + msize);

  for(int i = 0; i < nsize; i++) {
    out[i] = x[i];
  }
  for(int i = 0; i < msize; i++) {
    out[nsize+i] = y[i];
  }
  return(out);
}')

Production:

cLists(rlist, listadd)
[[1]]
[1] "123"

[[2]]
[1] "fdb"