1- // -*- mode: C++; c-indent-level: 4; c-basic-offset: 4; indent-tabs-mode: nil; -*-
21//
32// Module.h: Rcpp R/C++ interface class library -- Rcpp modules
43//
5- // Copyright (C) 2012 - 2013 Dirk Eddelbuettel and Romain Francois
4+ // Copyright (C) 2012 - 2019 Dirk Eddelbuettel and Romain Francois
65//
76// This file is part of Rcpp.
87//
@@ -51,7 +50,7 @@ namespace Rcpp {
5150 * @param args an array of R objects to use as arguments for the function
5251 * @param nargs number of arguments
5352 */
54- inline SEXP invoke ( const std::string& name_, SEXP* args, int nargs){
53+ inline SEXP invoke ( const std::string& name_, SEXP* args, int nargs){ // #nocov start
5554 MAP::iterator it = functions.find ( name_ );
5655 if ( it == functions.end () ){
5756 throw std::range_error ( " no such function" ) ;
@@ -81,7 +80,7 @@ namespace Rcpp {
8180 }
8281 x.names () = names ;
8382 return x ;
84- }
83+ } // #nocov end
8584
8685 /* *
8786 * vector of names of the functions
@@ -117,7 +116,7 @@ namespace Rcpp {
117116 /* *
118117 * completion information
119118 */
120- CharacterVector complete (){
119+ CharacterVector complete (){ // #nocov start
121120 size_t nf = functions.size () ;
122121 size_t nc = classes.size () ;
123122 size_t n = nf + nc ;
@@ -139,7 +138,7 @@ namespace Rcpp {
139138 res[i] = cit->first ;
140139 }
141140 return res ;
142- }
141+ } // #nocov end
143142
144143 /* *
145144 * Returns a list that contains:
@@ -199,13 +198,13 @@ namespace Rcpp {
199198 classes.insert ( CLASS_PAIR ( name_ , cptr ) ) ;
200199 }
201200
202- inline bool has_function ( const std::string& m){
201+ inline bool has_function ( const std::string& m){ // #nocov start
203202 return functions.find (m) != functions.end () ;
204203 }
205204
206205 inline bool has_class ( const std::string& m){
207206 return classes.find (m) != classes.end () ;
208- }
207+ } // #nocov end
209208
210209 CppClass get_class ( const std::string& cl ) ;
211210
0 commit comments