Как выставить указатель на абстрактные классы с помощью Rcpp? - PullRequest
Новая
       12

Как выставить указатель на абстрактные классы с помощью Rcpp?

0 голосов
/ 01 февраля 2019

Я реализую пакет R для библиотеки C ++, используя Rcpp.Библиотека реализует несколько производных классов из абстрактного класса.Функция инициализирует новые производные классы и возвращает их указатель в виде абстрактного класса.Можно ли получить аналогичную конструкцию для R с использованием Rcpp без изменения библиотеки C ++?

Вот упрощенный воспроизводимый пример: 

#include <iostream>
#include <string>
using namespace std;

// abstract class
class Base {
  public:
    virtual ~Base() {}
    virtual std::string name() const = 0;
    virtual Base* getNew() const = 0;
};

// derived class
class Derived: public Base {
  public:
    Derived() : Base() {}
    virtual std::string name() const { return "Derived"; }
    virtual Derived* getNew() const { return new Derived(); };
};

Base *newDerived( const std::string &name ) {
  if ( name == "d1" ){
    return new Derived ;
  } else {
    return 0 ;
  }
};

int main( void ) {
    Base* b = newDerived( "d1" ) ;
    cout << b->name() << endl ;
    return(1);
}

Вывод скомпилированного кода: Derived

Моя текущая версия использует Rcpp::RCPP_MODULE и Rcpp::XPtr.Однако эта версия не может использоваться как реализация C ++: 

#include <Rcpp.h>
using namespace Rcpp;

//... Base and Derived class and newDerived function implementations ... //

// wrapper function for pointer
typedef Base* (*newDerivedPtr)(const std::string& name);

//[[Rcpp::export]]
Rcpp::XPtr< newDerivedPtr > getNewDerived(const std::string type) {
  return(Rcpp::XPtr< newDerivedPtr >(new newDerivedPtr(&newDerived)));
}

RCPP_MODULE(mod) {
  Rcpp::class_< Base >("Base")
  ;

  Rcpp::class_< Derived >("Derived")
    .derives<Base>("Base")
    .default_constructor()
    .method("name", &Derived::name)
  ;
}

Пример выполнения: 

(dv = new(Derived))
# C++ object <0x101c0ce20> of class 'Derived' <0x101b51e00>
dv$name()
# [1] "Derived"
(dvptr = getNewDerived("d1"))
# pointer: 0x101c82770> // WANTED: C++ Object <0x...> of class 'Base' <0x...>

1 Ответ

0 голосов
/ 03 февраля 2019

Позвольте мне перефразировать вопрос: у вас есть класс Derived с закрытым конструктором.Единственный способ создать экземпляр этого класса - через фабричный метод newDerived.Этот фабричный метод возвращает не указатель на Derived, а указатель на Base, из которого получается Derived.

Если это правильно, то вы можете использовать метод, показанный в выставить класс в Rcpp - фабрике вместо конструктора .Вы должны обязательно предоставить класс Base: 

#include <Rcpp.h>
using namespace Rcpp;

// abstract class
class Base {
  public:
    virtual ~Base() {}
    virtual std::string name() const = 0;
};

// derived class
class Derived1: public Base {
  public:
    Derived1() : Base() {}
    virtual std::string name() const { return "Derived1"; }
};

// derived class
class Derived2: public Base {
  public:
    Derived2() : Base() {}
    virtual std::string name() const { return "Derived2"; }
};

Base *newBase( const std::string &name ) {
  if ( name == "d1" ){
    return new Derived1 ;
  } else if ( name == "d2" ){
    return new Derived2 ;
  } else {
    return 0 ;
  }
}

RCPP_MODULE(mod) {
  Rcpp::class_< Base >("Base")
    .factory<const std::string&>(newBase)
    .method("name", &Base::name)
  ;

}


/*** R
(dv1 <- new(Base, "d1"))
dv1$name()
(dv2 <- new(Base, "d2"))
dv2$name()
*/

Вывод: 

> (dv1 <- new(Base, "d1"))
C++ object <0x1cd3e60> of class 'Base' <0x1ea3560>

> dv1$name()
[1] "Derived1"

> (dv2 <- new(Base, "d2"))
C++ object <0x1fbb9f0> of class 'Base' <0x1ea3560>

> dv2$name()
[1] "Derived2"

Обратите внимание, что я добавил второй производный класс, удалил неиспользованный getNewметод и переименован в факторный метод.Этот способ кажется мне более реалистичным.

Оригинальный ответ, который теперь может выступать в качестве альтернативы: боюсь, вам придется выполнять всю автоматизацию, обеспечиваемую модулями Rcpp, вручную, т.е. генерировать класс вУровень R и использовать заводской метод для инициализации.Ниже приведена адаптация кода в виньетке модулей Rcpp плюс атрибуты Rcpp для упрощения кодирования: 

#include <Rcpp.h>
using namespace Rcpp;

// abstract class
class Base {
  public:
    virtual ~Base() {}
    virtual std::string name() const = 0;
    virtual Base* getNew() const = 0;
};

// derived class
class Derived1: public Base {
  public:
    Derived1() : Base() {}
    virtual std::string name() const { return "Derived1"; }
    virtual Derived1* getNew() const { return new Derived1(); };
};

// derived class
class Derived2: public Base {
  public:
    Derived2() : Base() {}
    virtual std::string name() const { return "Derived2"; }
    virtual Derived2* getNew() const { return new Derived2(); };
};

Base *newBase( const std::string &name ) {
  if ( name == "d1" ){
    return new Derived1 ;
  } else if ( name == "d2" ){
    return new Derived2 ;
  } else {
    return 0 ;
  }
}


//[[Rcpp::export]]
Rcpp::XPtr< Base > getNewBase(const std::string type) {
  return(Rcpp::XPtr< Base >(newBase(type)));
}

//[[Rcpp::export]]
std::string Base__name(Rcpp::XPtr< Base > ptr) {
  return ptr->name();
}


/*** R
setClass("Base", representation( pointer = "externalptr"))
Base_method <- function(name) {
  paste("Base", name, sep = "__")
}

setMethod("$", "Base", function(x, name) {
  function(...) do.call(Base_method(name), list(x@pointer, ...))
})

setMethod("initialize", "Base", function(.Object, ...) {
  .Object@pointer <- getNewBase(...)
  .Object
})

(dv <- new("Base", "d1"))
dv$name()
(dv <- new("Base", "d2"))
dv$name()
 */

Интересный вывод: 

> (dv <- new("Base", "d1"))
An object of class "Base"
Slot "pointer":
<pointer: 0x19b83e0>


> dv$name()
[1] "Derived1"

> (dv <- new("Base", "d2"))
An object of class "Base"
Slot "pointer":
<pointer: 0x1c02600>


> dv$name()
[1] "Derived2"

Обратите внимание, что я использую класс S4 здесьв то время как RCPP_MODULE создает ссылочный класс.Вероятно, можно также использовать RC для этого.Было бы интересным упражнением в обучении, так как я до сих пор не использовал напрямую RC.Также обратите внимание, что я использую совсем другое XPtr, чем вы.Я не уверен, что вы пытаетесь обернуть там.

...