[Rcpp-commits] r891 - pkg/Rcpp/inst/unitTests

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

Author: dmbates
Date: 2010-03-13 14:12:32 +0100 (Sat, 13 Mar 2010)
New Revision: 891

Modified:
   pkg/Rcpp/inst/unitTests/runit.S4.R
Log:
Syntax error fix in test.S4


Modified: pkg/Rcpp/inst/unitTests/runit.S4.R
===================================================================
--- pkg/Rcpp/inst/unitTests/runit.S4.R	2010-03-13 12:12:45 UTC (rev 890)
+++ pkg/Rcpp/inst/unitTests/runit.S4.R	2010-03-13 13:12:32 UTC (rev 891)
@@ -70,7 +70,8 @@
 	setClass("track",
            representation(x="numeric", y="numeric"))
 	tr <- new( "track", x = 2, y = 3 )
-	fx <- cfunction( signature( x = "ANY" ) 'S4 o(x); return o.slot( "x" ) ;', 
+	fx <- cfunction( signature( x = "ANY" ),
+                        'S4 o(x); return o.slot( "x" ) ;', 
 		Rcpp = TRUE, includes = "using namespace Rcpp;" )
 	checkEquals( fx( tr ), 2, msg = "S4( SEXP )" )