added #nocov tags for files unlikely to get tests

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,10 @@
+2016-12-09  Dirk Eddelbuettel  <[email protected]>
+
+        * R/00_classes.R: Added #nocov tags
+        * R/01_show.R: Ditto
+        * R/02_completion.R: Ditto
+        * R/03_prompt.R: Ditto
+
 2016-12-07  Dirk Eddelbuettel  <[email protected]>
 
         * inst/include/Rcpp/vector/Matrix.h: Add 'using ...' to disambiguate size()

R/00_classes.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 - 2012 John Chambers, Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2016  John Chambers, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -16,7 +16,7 @@
 # along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
 # anticipating a change in R 2.16.0
-setClass( "refClassGeneratorFunction" )
+setClass( "refClassGeneratorFunction" ) 	# #nocov start
 setClassUnion("refGenerator", c("refObjectGenerator", "refClassGeneratorFunction")) 
 
 ## "Module" class as an environment with "pointer", "moduleName",
@@ -106,4 +106,4 @@ setClass( "C++Function",
     fun
 }
 setGeneric( "formals<-" )
-setMethod( "formals<-", "C++Function", .cppfunction_formals_gets )
+setMethod( "formals<-", "C++Function", .cppfunction_formals_gets ) # #nocov end

R/01_show.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 - 2012 John Chambers, Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2016  John Chambers, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -15,7 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
-setMethod( "show", "C++Object", function(object){
+setMethod( "show", "C++Object", function(object){ 	# #nocov start
     env <- as.environment(object)
     pointer <- get(".pointer", envir = env)
     cppclass <- get(".cppclass", envir = env)
@@ -120,5 +120,5 @@ setMethod( "show", "Module", function( object ){
 	txt <- sprintf( "%15s ", names(info) )
 	writeLines( txt )
     }
-} )
+} )                                     # #nocov end
 

R/02_completion.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 - 2011 John Chambers, Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2016  John Chambers, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -15,7 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
-setGeneric( ".DollarNames" )
+setGeneric( ".DollarNames" )            # #nocov start
 .DollarNames.Module <- function(x, pattern){    
     pointer <- .getModulePointer( x )
     if(identical(pointer, .badModulePointer)) {
@@ -40,4 +40,4 @@ setMethod( "complete", "C++Object", function(x){
 	grep( pattern, complete(x), value = TRUE )
 }
 setMethod( ".DollarNames", "C++Object", `.DollarNames.C++Object` )
-
+                                        # #nocov end

R/03_prompt.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 - 2011 John Chambers, Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2016  John Chambers, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -15,7 +15,7 @@
 # You should have received a copy of the GNU General Public License
 # along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
-setGeneric( "functions", function(object, ...) standardGeneric( "functions" ) )
+setGeneric( "functions", function(object, ...) standardGeneric( "functions" ) ) # #nocov start
 setMethod( "functions", "Module", function(object, ...){
     pointer <- .getModulePointer(object)
     if(identical(pointer, .badModulePointer))
@@ -59,5 +59,5 @@ setMethod( "prompt", "Module", function(object, filename = NULL, name = NULL, ..
 
 	writeLines( lines, filename )
 	invisible(NULL)
-} )
+} )                                     # nocov end