[Rcpp-commits] r1801 - scripts

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

Author: edd
Date: 2010-07-07 14:06:59 +0200 (Wed, 07 Jul 2010)
New Revision: 1801

Added:
   scripts/findSlowTests.r
Log:
added little helper


Added: scripts/findSlowTests.r
===================================================================
--- scripts/findSlowTests.r	                        (rev 0)
+++ scripts/findSlowTests.r	2010-07-07 12:06:59 UTC (rev 1801)
@@ -0,0 +1,6 @@
+#!/usr/bin/Rscript
+#  this should really be /usr/bin/r but you-know-know on a Mac ...
+
+ntests <- sapply( list.files(), function(.) sum( grepl( "^test[.]", readLines( . ) ) ) )
+fast <- sapply( list.files(), function(.) any( grepl( "cxxfunction.*signatures", readLines( . ) ) ) )
+print(head(subset( data.frame( ntests, fast )[ order(-ntests), ], !fast ),10))


Property changes on: scripts/findSlowTests.r
___________________________________________________________________
Added: svn:executable
   + *