[Rcpp-commits] r4602 - scripts

[noreply at r-forge.r-project.org]

Author: edd
Date: 2014-01-06 18:44:47 +0100 (Mon, 06 Jan 2014)
New Revision: 4602

Modified:
   scripts/runRcppDepends.r
Log:
committing uncommitted changes from previous release


Modified: scripts/runRcppDepends.r
===================================================================
--- scripts/runRcppDepends.r	2013-12-16 01:03:19 UTC (rev 4601)
+++ scripts/runRcppDepends.r	2014-01-06 17:44:47 UTC (rev 4602)
@@ -1,8 +1,11 @@
 #!/usr/bin/r
 
 cat("Started at ", format(Sys.time()), "\n")
-library(parallel)
+#library(parallel)
 
+## for the borked src/Makevars of ExactNumCI
+Sys.setenv("BOOSTLIB"="/usr/include")
+
 setwd("/tmp/RcppDepends")
 
 AP <- available.packages(contrib.url("http://cran.r-project.org"),filter=list())	# available package at CRAN
@@ -12,9 +15,9 @@
 if (grep("transnet", rcppset)) {        ## not really an Rcpp user
     rcppset <- rcppset[ ! grepl("transnet", rcppset) ]
 }
-#if (grep("BioGeoBears", rcppset)) {     ## indirect match, no need to test
-#    rcppset <- rcppset[ ! grepl("BioGeoBears", rcppset) ]
-#}
+if (grep("BioGeoBEARS", rcppset)) {     ## indirect match, no need to test
+    rcppset <- rcppset[ ! grepl("BioGeoBEARS", rcppset) ]
+}
 if (grep("quadrupen", rcppset)) {       ## takes hours, skipping
     rcppset <- rcppset[ ! grepl("quadrupen", rcppset) ]
 }
@@ -25,7 +28,6 @@
 #for (pi in 1:nrow(res)) {
 #lres <- mclapply(1:nrow(res), mc.cores = 4, FUN=function(pi) {
 lres <- lapply(1:nrow(res), FUN=function(pi) {
-
     p <- rcppset[pi]
     i <- which(AP[,"Package"]==p)
     pkg <- paste(AP[i,"Package"], "_", AP[i,"Version"], ".tar.gz", sep="")