00001 // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; tab-width: 8 -*- 00002 // 00003 // RcppSexp.h: Rcpp R/C++ interface class library -- SEXP support 00004 // 00005 // Copyright (C) 2009 Dirk Eddelbuettel 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 RcppSexp_h 00023 #define RcppSexp_h 00024 00025 #include <RcppCommon.h> 00026 00027 class RcppSexp { 00028 public: 00029 RcppSexp(SEXP sexp, int numprot=0) : m_sexp(sexp) { } 00030 RcppSexp() : m_sexp(R_NilValue) { } 00031 RcppSexp(const double & v); 00032 RcppSexp(const int & v); 00033 RcppSexp(const std::string & v); 00034 RcppSexp(const std::vector<int> & v); 00035 RcppSexp(const std::vector<double> & v); 00036 RcppSexp(const std::vector<std::string> & v); 00037 ~RcppSexp(); 00038 00039 double asDouble() const; 00040 int asInt() const; 00041 std::string asStdString() const; 00042 std::vector<int> asStdVectorInt() const; 00043 std::vector<double> asStdVectorDouble() const; 00044 std::vector<std::string> asStdVectorString() const; 00045 SEXP asSexp() const; 00046 00047 private: 00048 SEXP m_sexp; 00049 }; 00050 00051 #endif