Add #nocov tags to R/* files

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,11 @@
+2026-01-01  Dirk Eddelbuettel  <[email protected]>
+
+	* R/Attributes.R: Additional #nocov tags for new(er) code
+	* R/Rcpp.package.skeleton.R: Idem
+	* R/RcppLdpath.R: Idem
+	* R/asis.R: Idem
+	* R/inline.R: Idem
+
 2025-12-30  Dirk Eddelbuettel  <[email protected]>
 
 	* tests/tinytest.R: Refine decision of when not to run all tests even

R/Attributes.R

@@ -1,6 +1,6 @@
 
 # Copyright (C) 2012 - 2022  JJ Allaire, Dirk Eddelbuettel and Romain Francois
-# Copyright (C) 2023 - 2024  JJ Allaire, Dirk Eddelbuettel, Romain Francois and Iñaki Ucar
+# Copyright (C) 2023 - 2026  JJ Allaire, Dirk Eddelbuettel, Romain Francois and Iñaki Ucar
 #
 # This file is part of Rcpp.
 #
@@ -571,7 +571,7 @@ compileAttributes <- function(pkgdir = ".", verbose = getOption("verbose")) {
 }
 
 .openmpPluginDefault <- function() {
-    list(env = list(PKG_CXXFLAGS = "-fopenmp", PKG_LIBS = "-fopenmp"))
+    list(env = list(PKG_CXXFLAGS = "-fopenmp", PKG_LIBS = "-fopenmp"))			# #nocov start
 }
 
 .openmpPluginDarwin <- function() {
@@ -629,7 +629,7 @@ compileAttributes <- function(pkgdir = ".", verbose = getOption("verbose")) {
         libs <- "-fopenmp"
     }
 
-    list(env = list(PKG_CXXFLAGS = cxxflags, PKG_LIBS = libs))
+    list(env = list(PKG_CXXFLAGS = cxxflags, PKG_LIBS = libs))				# #nocov end
 
 }
 

R/Module.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 - 2021  John Chambers, Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2026  John Chambers, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #

R/Rcpp.package.skeleton.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2009 - 2025  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2009 - 2026  Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -93,7 +93,7 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),
                                          email))
         fields_written <- c("Package", "Type", "Title", "Version", "Date",
                             "Authors@R", "Description", "License", "Imports", "LinkingTo")
-        if (!is.na(githubuser)) {
+        if (!is.na(githubuser)) {					# #nocov start
             x <- cbind(x, matrix("", 1, 1, dimnames=list("", "URL")))
             x[1, "URL"] <- paste0("https://github.com/", githubuser, "/", name)
             x <- cbind(x, matrix("", 1, 1, dimnames=list("", "BugReports")))
@@ -102,7 +102,7 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),
             fields_written <- c("Package", "Type", "Title", "Version", "Date",
                                 "Authors@R", "Description", "URL", "BugReports",
                                 "License", "Imports", "LinkingTo")
-            }
+            }										# #nocov end
 
         x[, "License"] <- license
         x[, "Title"] <- "Concise Summary of What the Package Does"
@@ -136,7 +136,7 @@ Rcpp.package.skeleton <- function(name = "anRpackage", list = character(),
 
     ## update the package description help page
     if (havePkgKitten) {                # if pkgKitten is available, use it
-        pkgKitten::playWithPerPackageHelpPage(name, path, maintainer, email)
+        pkgKitten::playWithPerPackageHelpPage(name, path, maintainer, email) # #nocov
     } else {
         .playWithPerPackageHelpPage(name, path, maintainer, email)			# #nocov
     }

R/RcppLdpath.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 - 2021  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2026  Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -25,7 +25,7 @@ Rcpp.quoteNonStandard <- function(path) {
     ## On unix, check if path has only characters that do not need quoting
     noquote <- .Platform$OS.type == "unix" && grepl("^[[:alnum:]/._~+@%-]*$", path)
     ## If no quoting needed return unchanged else quote input
-    if (noquote) path else shQuote(path)
+    if (noquote) path else shQuote(path)  # #nocov
 }
 
 ## Use R's internal knowledge of path settings to find the lib/ directory
@@ -66,11 +66,11 @@ RcppCxxFlags <- function(cxx0x=FALSE) {
 
 ## Shorter names, and call cat() directly
 ## CxxFlags defaults to no using c++0x extensions are these are considered non-portable
-CxxFlags <- function(cxx0x=FALSE) {
+CxxFlags <- function(cxx0x=FALSE) {				# #nocov start
     #.Deprecated(msg=paste("This function is now deprecated as R uses minimally",
     #                      "viable compilers om all platforme."))
     message("'CxxFlags' has not been needed since 2013 (!!) and may get removed in 2027. Please update your 'Makevars'.")
-    cat(RcppCxxFlags(cxx0x=cxx0x))				# #nocov
+    cat(RcppCxxFlags(cxx0x=cxx0x))				# #nocov end
 }
 
 ## LdFlags defaults to static linking on the non-Linux platforms Windows and OS X
@@ -84,11 +84,11 @@ RcppCapabilities <- capabilities <- function() .Call( rcpp_capabilities )
 
 # compile, load and call the cxx0x.c script to identify whether
 # the compiler is GCC >= 4.3
-RcppCxx0xFlags <- function() {
+RcppCxx0xFlags <- function() {								# #nocov start
     #.Deprecated(msg=paste("This function is now deprecated as R uses minimally",
     #                      "viable compilers om all platforme."))
     message("'RcppCxx0xFlags' has not been needed since 2013 (!!) and may get removed in 2027. Please update your 'Makevars'.")
-    script <- Rcpp.system.file( "discovery", "cxx0x.R" )	# #nocov start
+    script <- Rcpp.system.file( "discovery", "cxx0x.R" )
     flag <- capture.output( source( script ) )
     flag
 }

R/asis.R

@@ -30,7 +30,7 @@
 ##' #   %\VignettePackage{Rcpp}
 ##' #   %\VignetteEncoding{UTF-8}
 ##' #   %\VignetteEngine{Rcpp::asis}
-asisWeave <- function (file, ...) {
+asisWeave <- function (file, ...) {								# #nocov start
     output <- tools::file_path_sans_ext(basename(file))
     if (!file.exists(output)) {
         outputS <- file.path("..", "inst", "doc", output)
@@ -53,4 +53,4 @@ asisTangle <- function (file, ..., pattern = "(|[.][^.]*)[.]asis$") {
     filenameR <- sprintf("%s.R", fullname)
     cat(sprintf("### This is an R script tangled from '%s'\n", filename), file = filenameR)
     invisible(filenameR)
-}
+}																# #nocov end

R/inline.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2009 - 2017  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2009 - 2026  Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -24,7 +24,7 @@ Rcpp.plugin.maker <- function(include.before = "",
                               Makevars      = NULL ,
                               Makevars.win  = NULL,
                               package       = "Rcpp") {
-    function(...) {
+    function(...) {		# #nocov
         includes <- sprintf("%s
 #include <Rcpp.h>
 %s
@@ -43,7 +43,7 @@ using namespace Rcpp;", include.before, include.after)
                     includes = includes,
                     LinkingTo = LinkingTo ,
                     body = function( x ) {
-                        sprintf( "BEGIN_RCPP\n%s\nEND_RCPP", x )
+                        sprintf( "BEGIN_RCPP\n%s\nEND_RCPP", x )  # #nocov
                     },
                     Depends = Depends,
                     Imports = Imports)
@@ -54,4 +54,3 @@ using namespace Rcpp;", include.before, include.after)
 }
 
 inlineCxxPlugin <- Rcpp.plugin.maker()
-

R/loadModule.R

@@ -1,4 +1,4 @@
-# Copyright (C) 2010 - 2015  John Chambers, Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2026  John Chambers, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -54,12 +54,12 @@ loadModule <- function( module, what = character(), loadNow,
         if(exists(metaName, envir = env, inherits = FALSE))
             loadM <- get(metaName, envir = env)
     }
-    else if(is(module, "Module")) {	
-        loadM <- as.environment(module)		# #nocov
-        module <- get(loadM, "moduleName")      # #nocov
+    else if(is(module, "Module")) {			# #nocov start
+        loadM <- as.environment(module)
+        module <- get(loadM, "moduleName")
     }
     else
-        stop(gettextf("Argument \"module\" should be a module or the name of a module: got an object of class \"%s\"", class(module)))
+        stop(gettextf("Argument \"module\" should be a module or the name of a module: got an object of class \"%s\"", class(module)))  # #nocov end
     if(missing(loadNow)) { # test it
         if(is.null(loadM))
             loadM <- tryCatch(Module( module, mustStart = TRUE, where = env ),
@@ -104,7 +104,7 @@ loadModule <- function( module, what = character(), loadNow,
         assignAs <- .moduleNames(what)
         for( i in seq_along(what) ) {
             if(.botched)
-                assign(assignAs[[i]], NULL, envir = storage)
+                assign(assignAs[[i]], NULL, envir = storage)    # #nocov
             else
                 assign(assignAs[[i]], get(what[[i]], envir = storage), envir = env)
         }
@@ -120,4 +120,3 @@ loadModule <- function( module, what = character(), loadNow,
         invisible(myCall)					# #nocov
     }
 }
-