remove testing placemark messages

Author: perrydv

nCompiler/R/nCompile.R

@@ -258,7 +258,7 @@ nCompile <- function(...,
                      package = FALSE,
                      returnList = FALSE) { ## return a list even if there is only one unit being compiled.
   #(1) Put together inputs from ...
-  cat("starting nCompile\n")
+  # cat("starting nCompile\n")
 
   dotsDeparses <- unlist(lapply( substitute(list(...))[-1], deparse ))
   origList <- list(...)
@@ -354,7 +354,7 @@ nCompile <- function(...,
   # after packing up control list (e.g. from interfaces)
 
   # (2) Create cppDefs
-  cat("making cppDefs\n")
+  # cat("making cppDefs\n")
   cppDefs_info <- createCppDefsInfo(units, unitTypes, control, compileInfos)
   cppDefs <- cppDefs_info$cppDefs
   if(isTRUE(control$return_cppDefs)) return(cppDefs)
@@ -382,7 +382,7 @@ nCompile <- function(...,
 
   if(!is.null(from_writePackage)) {
     # .writePackage content was provided, so we were called from writePackage
-    cat("doing return(writePackage(...))\n")
+    # cat("doing return(writePackage(...))\n")
     return(
       writePackage(pkgName = from_writePackage$pkgName,
                     dir = dir,
@@ -398,7 +398,7 @@ nCompile <- function(...,
 
   # From here on, we were not called from writePackage
   if(package) {
-    cat("calling writePackage for package mode\n")
+    # cat("calling writePackage for package mode\n")
     # user requests nCompile use packaging mechanism
     temppkgname <- basename(tempfile("TEMPPKG", ""))
     writePackage(pkgName = temppkgname,
@@ -412,7 +412,7 @@ nCompile <- function(...,
     lib <- file.path(tempdir(), "templib")
     if(!dir.exists(lib)) dir.create(lib, recursive=TRUE)
     pkgDir <- file.path(dir, temppkgname)
-    cat("about to try devtools::install\n")
+    # cat("about to try devtools::install\n")
     ans <- try({
       withr::with_libpaths(lib, {
         devtools::install(pkgDir,
@@ -430,7 +430,7 @@ nCompile <- function(...,
       names(ans_) <- returnNames
       ans_
     })
-    cat("done trying devtools::install\n")
+    # cat("done trying devtools::install\n")
     if(inherits(ans, "try-error")) {
       stop("It looks like the package code was generated without stopping,\n",
            "but there was an error installing or loading it.\n",
@@ -443,7 +443,7 @@ nCompile <- function(...,
   } else {
     # We will not use packaging mechanism
     RcppPacket_list <- cppDefsList_2_RcppPacketList(cppDefs)
-    cat("doing nCompile_finish_nonpackage\n")
+    # cat("doing nCompile_finish_nonpackage\n")
     return(
       nCompile_finish_nonpackage(units = units,
                                  cppDefs = cppDefs,
@@ -471,7 +471,7 @@ writePackage <- function(...,
                          modify = get_nOption("modifyPackageFiles"),
                          memberData = list(),
                          roxygen = list()) {
-  cat("starting writePackage\n")
+  # cat("starting writePackage\n")
   require(Rcpp)
   pkgDir <- file.path(dir, pkgName)
   modify <- match.arg(modify, c("no", "add", "clear"))
@@ -494,7 +494,7 @@ writePackage <- function(...,
   if(is.null(content)) { # this means we are being called directly, not from nCompile
     # We call nCompile with control$.writePackage containing arguments needed for
     #  nCompile to recurse back to writePackage with control$prepared_content filled in.
-    cat("calling nCompile\n")
+    # cat("calling nCompile\n")
     res <- nCompile(...,
               dir = dir,
               env = parent.frame(), # will not be used
@@ -545,7 +545,7 @@ writePackage <- function(...,
   codeDir <- file.path(instDir, "include", "nCompGeneratedCode")
   datDir <- file.path(pkgDir, "data")
 #
-  cat("starting writePackage writing steps\n")
+  # cat("starting writePackage writing steps\n")
   WP_check_unit_types(units, unitTypes)
   cppDefs <- WP_add_roxygen_fxns_to_cppDefs(cppDefs, units, unitTypes, roxygen, roxygenFlag)
   full_interfaces <- WP_build_full_interfaces(units, unitTypes, interfaces, exportNames)
@@ -573,11 +573,11 @@ writePackage <- function(...,
   ##   # message("Deleting ", compiledObjs)
   ##   unlink(compiledObjs)
   ## }
-  cat("calling compileAttributs\n")
+  # cat("calling compileAttributs\n")
   compileAttributes(pkgdir = pkgDir)
   update_compileAttributes_for_argPassing(Rdir,
                                           units, unitTypes, returnNames)
-  cat("finished writePackage\n")
+  # cat("finished writePackage\n")
   invisible(NULL)
 }
 

nCompiler/tests/testthat/nCompile_tests/test-argumentPassing.R

@@ -60,12 +60,9 @@ test_that("pass 1D by copy works (compiled & uncompiled)", {
 ####################
 ## 1D tests
 
-cat("starting 1D tests\n")
-
 # compiled and uncompiled 1D by ref
 test_that("pass 1D by ref and blockRef works and error-traps (compiled & uncompiled) in nFunction", {
   message("This test has many trapped errors.")
-  cat("A\n")
   foo <- nFunction(
     function(x = numericVector(), xRef = numericVector(), xBlockRef = numericVector()) {
       xRef <- x[1:2] + 10
@@ -77,7 +74,6 @@ test_that("pass 1D by ref and blockRef works and error-traps (compiled & uncompi
     blockRefArgs = 'xBlockRef',
     returnType = 'numericVector'
   )
-  cat("B\n")
   test_foo <- function(fn) {
     x <- as.numeric(1:3)
     xRef <- as.numeric(11:13)
@@ -90,9 +86,7 @@ test_that("pass 1D by ref and blockRef works and error-traps (compiled & uncompi
     expect_equal(xRef, x[1:2] + 10)
     expect_equal(xBlockRef, c(21, 1:2 + 10 + 1000))
   }
-  cat("C\n")
   cfoo <- nCompile(foo)
-  cat("D\n")
   test_foo(foo)
   test_foo(cfoo)
   test_foo(cfoo) # Do twice to invoke byte-compiled version.
@@ -103,27 +97,20 @@ test_that("pass 1D by ref and blockRef works and error-traps (compiled & uncompi
   # and our then our tricky code failed. So we stopped being tricky in C++
   # and took another approach. However we still have
   # second-calls as regression tests on this problem.
-  cat("E\n")
   cfoo <- nCompile(foo, package=TRUE)
-  cat("F\n")
   test_foo(cfoo)
   test_foo(cfoo)
   dir <- file.path(tempdir(), "test_nComp_testpackage_argPassing")
   test <- writePackage(foo, pkgName = "testpackage", dir = dir, modify="clear")
   lib <- file.path(tempdir(), "test_nComp_lib_argPassing")
-  cat("G\n")
   dir.create(lib, showWarnings=FALSE)
   withr::with_libpaths(lib, devtools::install(file.path(dir, "testpackage"),
                                               upgrade = "never", quick=TRUE, quiet=TRUE))
-  cat("H\n")
   withr::with_libpaths(lib, load_dynamic_namespace("testpackage"))
-  cat("I\n")
   test_foo(access_dynamic_package("testpackage", "foo"))
   test_foo(access_dynamic_package("testpackage", "foo"))
 })
 
-cat("starting 1D ref and blockRef tests\n")
-
 
 test_that("pass 1D by ref and blockRef works and error-traps via nClass method (compiled & uncompiled)", {
   message("This test has four trapped errors.")