add new option windowsDebugDLL

Author: eddelbuettel

ChangeLog

@@ -1,5 +1,9 @@
 2019-12-14  Dirk Eddelbuettel  <[email protected]>
 
+	* R/Attributes.R (sourceCpp): Support new argument windowsDebugDLL to
+	create a debug DLL, supported on Windows only
+	* man/sourceCpp.Rd: Document it
+
 	* src/date.cpp: A few more #nocov tage
 
 2019-12-13  Dirk Eddelbuettel  <[email protected]>

R/Attributes.R

@@ -1,5 +1,5 @@
 
-# Copyright (C) 2012 - 2018  JJ Allaire, Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2012 - 2019  JJ Allaire, Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -27,7 +27,8 @@ sourceCpp <- function(file = "",
                       cleanupCacheDir = FALSE,
                       showOutput = verbose,
                       verbose = getOption("verbose"),
-                      dryRun = FALSE) {
+                      dryRun = FALSE,
+                      windowsDebugDLL = FALSE) {
 
     # use an architecture/version specific subdirectory of the cacheDir
     # (since cached dynlibs can now perist across sessions we need to be
@@ -63,6 +64,11 @@ sourceCpp <- function(file = "",
             stop("The filename '", basename(file), "' contains spaces. This ",
                  "is not permitted.")
         }                                                       # #nocov end
+    } else {
+        if (verbose && windowsDebugDLL) {
+            message("The 'windowsDebugDLL' toggle is ignored on non-Windows platforms.")
+            windowsDebugDLL <- FALSE    # no we do not need to for OS below
+        }
     }
 
     # get the context (does code generation as necessary)
@@ -121,6 +127,7 @@ sourceCpp <- function(file = "",
         # prepare the command (output if we are in showOutput mode)
         cmd <- paste(R.home(component="bin"), .Platform$file.sep, "R ",
                      "CMD SHLIB ",
+                     ifelse(windowsDebugDLL, "-d ", ""),
                      "-o ", shQuote(context$dynlibFilename), " ",
                      ifelse(rebuild, "--preclean ", ""),
                      ifelse(dryRun, "--dry-run ", ""),

man/sourceCpp.Rd

@@ -10,7 +10,8 @@ and RCPP_MODULE declarations. A shared library is then built and its exported fu
 \usage{
 sourceCpp(file = "", code = NULL, env = globalenv(), embeddedR = TRUE, rebuild = FALSE, 
           cacheDir = getOption("rcpp.cache.dir", tempdir()), cleanupCacheDir = FALSE,
-          showOutput = verbose, verbose = getOption("verbose"), dryRun = FALSE)
+          showOutput = verbose, verbose = getOption("verbose"), dryRun = FALSE,
+          windowsDebugDLL = FALSE)
 }
 \arguments{
   \item{file}{
@@ -43,6 +44,9 @@ sourceCpp(file = "", code = NULL, env = globalenv(), embeddedR = TRUE, rebuild =
   \item{dryRun}{
     \code{TRUE} to do a dry run (showing commands that would be used rather than
 actually executing the commands).
+}
+  \item{windowsDebugDLL}{
+    \code{TRUE} to create a debug DLL on Windows (and ignored on other platforms).
 }
 }
 \details{