|
Rcpp Version 0.9.10
|
00001 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*- 00002 // 00003 // S4.h: Rcpp R/C++ interface class library -- S4 objects 00004 // 00005 // Copyright (C) 2010 - 2011 Dirk Eddelbuettel and Romain Francois 00006 // 00007 // This file is part of Rcpp. 00008 // 00009 // Rcpp is free software: you can redistribute it and/or modify it 00010 // under the terms of the GNU General Public License as published by 00011 // the Free Software Foundation, either version 2 of the License, or 00012 // (at your option) any later version. 00013 // 00014 // Rcpp is distributed in the hope that it will be useful, but 00015 // WITHOUT ANY WARRANTY; without even the implied warranty of 00016 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00017 // GNU General Public License for more details. 00018 // 00019 // You should have received a copy of the GNU General Public License 00020 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>. 00021 00022 #ifndef Rcpp_S4_h 00023 #define Rcpp_S4_h 00024 00025 #include <RcppCommon.h> 00026 #include <Rcpp/RObject.h> 00027 00028 namespace Rcpp{ 00029 00033 class S4 : public RObject{ 00034 public: 00035 S4() ; 00036 00042 S4(SEXP x) ; 00043 00049 S4(const S4& other) ; 00050 00051 S4(const RObject::SlotProxy& proxy ) ; 00052 S4(const RObject::AttributeProxy& proxy ) ; 00053 00057 S4& operator=( const S4& other); 00058 00059 S4& operator=( SEXP other ) ; 00060 00067 S4( const std::string& klass ) ; 00068 00072 bool is( const std::string& clazz) ; 00073 00074 private: 00075 void set( SEXP x) ; 00076 } ; 00077 00078 } // namespace Rcpp 00079 00080 #endif