1 // Copyright (C) 2013 Romain Francois 2 // 3 // This file is part of Rcpp. 4 // 5 // Rcpp is free software: you can redistribute it and/or modify it 6 // under the terms of the GNU General Public License as published by 7 // the Free Software Foundation, either version 2 of the License, or 8 // (at your option) any later version. 9 // 10 // Rcpp is distributed in the hope that it will be useful, but 11 // WITHOUT ANY WARRANTY; without even the implied warranty of 12 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 // GNU General Public License for more details. 14 // 15 // You should have received a copy of the GNU General Public License 16 // along with Rcpp. If not, see <http://www.gnu.org/licenses/>. 17 18 #ifndef Rcpp_api_meat_Dimension_h 19 #define Rcpp_api_meat_Dimension_h 20 21 namespace Rcpp{ 22 Dimension(SEXP dims_)23 inline Dimension::Dimension(SEXP dims_) : dims( as< std::vector<int> >(dims_) ){} 24 SEXP()25 inline Dimension::operator SEXP() const { 26 return wrap( dims.begin(), dims.end() ) ; 27 } 28 29 } 30 31 #endif 32