add utility for pre-compiling 'RcppNT2.h'

kevinushey · kevinushey · commit 0ee5e1ee869d · 2016-01-26T15:46:53.000-08:00
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,2 +1,3 @@
 # Generated by roxygen2: do not edit by hand
 
+export(precompileRcppNT2)
diff --git a/R/plugin.R b/R/plugin.R
@@ -2,7 +2,10 @@
 inlineCxxPlugin <- function() {
   list(
     env = list(
-      PKG_CXXFLAGS = paste("$(CXX1XSTD)")
+      PKG_CXXFLAGS = paste(
+        "$(CXX1XSTD)",
+        "-include", system.file("include/RcppNT2.h", package = "RcppNT2")
+      )
     ),
     includes = "#include <RcppNt2.h>"
   )
diff --git a/R/precompiled-headers.R b/R/precompiled-headers.R
@@ -0,0 +1,39 @@
+#' Pre-compile the RcppNT2 header
+#'
+#' Pre-compiles the \code{RcppNT2.h} header, for faster compilation. This can be
+#' useful if you need to improve the speed of compilation when iterating with,
+#' for example, \code{Rcpp::sourceCpp()}.
+#'
+#' Note that the precompiled header can be quite large (~400MB) so be sure that
+#' you have ample disk space before precompiling the header.
+#'
+#' @export
+precompileRcppNT2 <- function() {
+
+  header <- system.file("include/RcppNT2.h", package = "RcppNT2")
+  include <- system.file("include", package = "RcppNT2")
+  output <- file.path(include, "RcppNT2.h.gch")
+
+  R          <- file.path(R.home("bin"), "R")
+  CXX        <- system(paste(shQuote(R), "CMD config CXX"), intern = TRUE)
+  CXXFLAGS   <- system(paste(shQuote(R), "CMD config CXXFLAGS"), intern = TRUE)
+  CXX1XFLAGS <- system(paste(shQuote(R), "CMD config CXX1XFLAGS"), intern = TRUE)
+
+  cxxFlags <- if (nzchar(CXX1XFLAGS)) CXX1XFLAGS else CXXFLAGS
+
+  cmd <- paste(
+    CXX,
+    "-x c++-header", header,
+    paste("-I", include, sep = ""),
+    "-std=c++11",
+    cxxFlags
+  )
+
+  message("Pre-compiling 'RcppNT2.h'...")
+  status <- system(cmd)
+  if (status || !file.exists(output))
+    stop("Failed to compile 'RcppNT2.h'", call. = FALSE)
+
+  message("Successfully compiled 'RcppNT2.h'.")
+  invisible(output)
+}
diff --git a/inst/examples/boost-simd/boost-simd-variance.cpp b/inst/examples/boost-simd/boost-simd-variance.cpp
@@ -36,7 +36,7 @@ class SumOfSquaresReducer
 // [[Rcpp::export]]
 double simdVarTwoPass(NumericVector x)
 {
-   double total = simdReduce(x.begin(), x.end(), 0.0, simd_ops::plus());
+   double total = simdReduce(x.begin(), x.end(), 0.0, functor::plus());
    double n = x.size();
    double mean = total / n;
 
diff --git a/man/precompileRcppNT2.Rd b/man/precompileRcppNT2.Rd

Original file line number	Diff line number	Diff line change
`@@ -1,2 +1,3 @@`
`1`	`1`	`# Generated by roxygen2: do not edit by hand`
`2`	`2`
	`3`	`+export(precompileRcppNT2)`
Original file line number	Diff line number	Diff line change
`@@ -36,7 +36,7 @@ class SumOfSquaresReducer`
`36`	`36`	`// [[Rcpp::export]]`
`37`	`37`	`double simdVarTwoPass(NumericVector x)`
`38`	`38`	`{`
`39`		`- double total = simdReduce(x.begin(), x.end(), 0.0, simd_ops::plus());`
	`39`	`+ double total = simdReduce(x.begin(), x.end(), 0.0, functor::plus());`
`40`	`40`	`double n = x.size();`
`41`	`41`	`double mean = total / n;`
`42`	`42`