[Rcpp-commits] r1250 - pkg/Rcpp/inst/examples/RcppInline

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

Author: edd
Date: 2010-05-17 04:16:04 +0200 (Mon, 17 May 2010)
New Revision: 1250

Modified:
   pkg/Rcpp/inst/examples/RcppInline/RcppInlineWithLibsExamples.r
Log:
first example has no argument, so let's now supply one


Modified: pkg/Rcpp/inst/examples/RcppInline/RcppInlineWithLibsExamples.r
===================================================================
--- pkg/Rcpp/inst/examples/RcppInline/RcppInlineWithLibsExamples.r	2010-05-16 19:36:41 UTC (rev 1249)
+++ pkg/Rcpp/inst/examples/RcppInline/RcppInlineWithLibsExamples.r	2010-05-17 02:16:04 UTC (rev 1250)
@@ -40,14 +40,14 @@
 
     ## turn into a function that R can call
     ## compileargs redundant on Debian/Ubuntu as gsl headers are found anyway
-    funx <- cfunction(signature(ignored="numeric"), gslrng,
+    funx <- cfunction(signature(), gslrng,
                       includes="#include <gsl/gsl_rng.h>",
                       Rcpp=FALSE,
                       cppargs="-I/usr/include",
                       libargs="-lgsl -lgslcblas")
 
     cat("Calling first example\n")
-    funx(0)
+    funx()
     invisible(NULL)
 }