first set of '/usr/bin/env r' changes

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,16 @@
+2016-02-21  Dirk Eddelbuettel  <[email protected]>
+
+        * inst/examples/functionCallback/newApiExample.r (vecfunc): Switched to
+        using '/usr/bin/env r', switch to using 'cxxfunction'
+
+        * inst/examples/Misc/fibonacci.r: Switched to using '/usr/bin/env r',
+        added explicit load of Rcpp package
+
+        * inst/examples/Misc/newFib.r: Switched to using '/usr/bin/env r'
+        * inst/examples/Misc/ifelseLooped.r: Idem
+        * inst/examples/Misc/piBySimulation.r: Idem
+        * inst/examples/SugarPerformance/sugarBenchmarks.r: Idem
+
 2016-02-16  Dirk Eddelbuettel  <[email protected]>
 
         * vignettes/Rcpp-FAQ.Rnw: Added answer on fixed-size limit of arguments

inst/examples/Misc/fibonacci.r

@@ -1,11 +1,13 @@
-#!/usr/bin/r
+#!/usr/bin/env r
 
 ## this short example was provided in response to this StackOverflow questions:
 ## http://stackoverflow.com/questions/6807068/why-is-my-recursive-function-so-slow-in-r
 ## and illustrates that recursive function calls are a) really expensive in R and b) not
 ## all expensive in C++ (my machine sees a 700-fold speed increase) and c) the byte
 ## compiler in R does not help here.
 
+suppressMessages(library(Rcpp))
+
 ## byte compiler
 require(compiler)
 

inst/examples/Misc/ifelseLooped.r

@@ -1,4 +1,4 @@
-#!/usr/bin/r
+#!/usr/bin/env r
 ##
 ## This example goes back to the following StackOverflow questions:
 ##   http://stackoverflow.com/questions/7153586/can-i-vectorize-a-calculation-which-depends-on-previous-elements

inst/examples/Misc/newFib.r

@@ -1,4 +1,4 @@
-#!/usr/bin/r
+#!/usr/bin/env r
 
 ## New and shorter version of Fibonacci example using Rcpp 0.9.16 or later features
 ## The the sibbling file 'fibonacci.r' for context

inst/examples/Misc/piBySimulation.r

@@ -1,4 +1,4 @@
-#!/usr/bin/r
+#!/usr/bin/env r
 
 library(Rcpp)
 library(rbenchmark)

inst/examples/SugarPerformance/sugarBenchmarks.R

@@ -1,4 +1,4 @@
-#!/usr/bin/r -t
+#!/usr/bin/env r
 
 suppressMessages(library(inline))
 suppressMessages(library(Rcpp))

inst/examples/functionCallback/newApiExample.r

@@ -1,4 +1,4 @@
-#!/usr/bin/r -ti
+#!/usr/bin/env r
 
 suppressMessages(library(Rcpp))
 suppressMessages(library(inline))
@@ -24,8 +24,8 @@ cpp <- '
 '
 
 # create a C++ function
-funx <- cfunction(signature(N = "integer" , xvec = "numeric", fun = "function" ),
-                  cpp, , Rcpp = TRUE, include = "using namespace Rcpp; ")
+funx <- cxxfunction(signature(N = "integer" , xvec = "numeric", fun = "function" ),
+                    body=cpp, include = "using namespace Rcpp; ", plugin = "Rcpp")
 
 # create the vector
 xvec <- sqrt(c(1:12, 11:1))
@@ -36,4 +36,3 @@ par(mar=c(3,3,1,1),cex=0.8, pch=19)
 
 # run example
 funx( 10L, xvec, vecfunc )
-