@@ -55,13 +55,13 @@ sourceCpp <- function(file = "",
5555 file <- normalizePath(file , winslash = " /" )
5656
5757 # error if the file extension isn't one supported by R CMD SHLIB
58- if (! tools :: file_ext(file ) %in% c(" cc" , " cpp" )) { # #nocov start
58+ if (! tools :: file_ext(file ) %in% c(" cc" , " cpp" )) {
5959 stop(" The filename '" , basename(file ), " ' does not have an " ,
6060 " extension of .cc or .cpp so cannot be compiled." )
61- } # #nocov end
61+ }
6262
6363 # validate that there are no spaces in the path on windows
64- if (.Platform $ OS.type == " windows" ) { # #nocov start
64+ if (.Platform $ OS.type == " windows" ) {
6565 if (grepl(' ' , basename(file ), fixed = TRUE )) {
6666 stop(" The filename '" , basename(file ), " ' contains spaces. This " ,
6767 " is not permitted." )
@@ -73,7 +73,7 @@ sourceCpp <- function(file = "",
7373 " non-Windows platforms." )
7474 }
7575 windowsDebugDLL <- FALSE # now we do not need to deal with OS choice below
76- } # #nocov end
76+ }
7777 }
7878
7979 # get the context (does code generation as necessary)
@@ -323,9 +323,9 @@ cppFunction <- function(code,
323323
324324 # verify that a single function was exported and return it
325325 if (length(exported $ functions ) == 0 )
326- stop(" No function definition found" ) # #nocov
326+ stop(" No function definition found" )
327327 else if (length(exported $ functions ) > 1 )
328- stop(" More than one function definition" ) # #nocov
328+ stop(" More than one function definition" )
329329 else {
330330 functionName <- exported $ functions [[1 ]]
331331 invisible (get(functionName , env ))
@@ -417,7 +417,7 @@ compileAttributes <- function(pkgdir = ".", verbose = getOption("verbose")) {
417417 pkgdir <- normalizePath(pkgdir , winslash = " /" )
418418 descFile <- file.path(pkgdir ," DESCRIPTION" )
419419 if (! file.exists(descFile ))
420- stop(" pkgdir must refer to the directory containing an R package" ) # #nocov
420+ stop(" pkgdir must refer to the directory containing an R package" )
421421 pkgDesc <- read.dcf(descFile )[1 ,]
422422 pkgname = .readPkgDescField(pkgDesc , " Package" )
423423 depends <- c(.readPkgDescField(pkgDesc , " Depends" , character ()),
@@ -429,7 +429,7 @@ compileAttributes <- function(pkgdir = ".", verbose = getOption("verbose")) {
429429 # check the NAMESPACE file to see if dynamic registration is enabled
430430 namespaceFile <- file.path(pkgdir , " NAMESPACE" )
431431 if (! file.exists(namespaceFile ))
432- stop(" pkgdir must refer to the directory containing an R package" ) # #nocov
432+ stop(" pkgdir must refer to the directory containing an R package" )
433433 pkgNamespace <- readLines(namespaceFile , warn = FALSE )
434434 registration <- any(grepl(" ^\\ s*useDynLib.*\\ .registration\\ s*=\\ s*TRUE.*$" , pkgNamespace ))
435435
0 commit comments