less inline, more attributes

Author: romainfrancois

inst/examples/Misc/fibonacci.r

@@ -6,31 +6,18 @@
 ## all expensive in C++ (my machine sees a 700-fold speed increase) and c) the byte
 ## compiler in R does not help here.
 
-## inline to compile, load and link the C++ code
-require(inline)
-
 ## byte compiler
 require(compiler)
 
-## we need a pure C/C++ function as the generated function
-## will have a random identifier at the C++ level preventing
-## us from direct recursive calls
-incltxt <- '
+## A C++ version compile with cppFunction
+fibRcpp <- cppFunction( '
 int fibonacci(const int x) {
    if (x == 0) return(0);
    if (x == 1) return(1);
    return (fibonacci(x - 1)) + fibonacci(x - 2);
-}'
-
-## now use the snipped above as well as one argument conversion
-## in as well as out to provide Fibonacci numbers via C++
-fibRcpp <- cxxfunction(signature(xs="int"),
-                       plugin="Rcpp",
-                       incl=incltxt,
-                       body='
-   int x = Rcpp::as<int>(xs);
-   return Rcpp::wrap( fibonacci(x) );
-')
+}
+' )
+
 
 ## for comparison, the original (but repaired with 0/1 offsets)
 fibR <- function(seq) {