[Rcpp-devel] [Rcpp-commits] r271 - in pkg: R man

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

Author: romain
Date: 2010-01-04 21:59:09 +0100 (Mon, 04 Jan 2010)
New Revision: 271

Modified:
   pkg/R/zzz.R
   pkg/man/RcppUnitTests.Rd
Log:
move some logic back in the Rd file RcppUnitTests

Modified: pkg/R/zzz.R
===================================================================
--- pkg/R/zzz.R	2010-01-04 18:40:13 UTC (rev 270)
+++ pkg/R/zzz.R	2010-01-04 20:59:09 UTC (rev 271)
@@ -15,11 +15,6 @@
 # You should have received a copy of the GNU General Public License
 # along with Rcpp.  If not, see <http://www.gnu.org/licenses/>.
 
-dumpUnitTestReport <- function(){
-	txt <- system.file( "doc", "Rcpp-unitTests.txt", package = "Rcpp" )
-	if( file.exists( txt ) ) paste( readLines( txt ), collapse = "\n\n" ) else ""
-}
-
 .onAttach <- function(libname, pkgname){
 	.Call( "initUncaughtExceptionHandler", PACKAGE = pkgname )
 }

Modified: pkg/man/RcppUnitTests.Rd
===================================================================
--- pkg/man/RcppUnitTests.Rd	2010-01-04 18:40:13 UTC (rev 270)
+++ pkg/man/RcppUnitTests.Rd	2010-01-04 20:59:09 UTC (rev 271)
@@ -16,8 +16,11 @@
 }
 
 \details{
-\Sexpr[echo=FALSE,results=text]{ if(exists("dumpUnitTestReport", asNamespace("Rcpp"))) Rcpp:::dumpUnitTestReport() else ""}
+\Sexpr[echo=FALSE,results=text]{ 
+txt <- system.file( "doc", "Rcpp-unitTests.txt", package = "Rcpp" )
+if( file.exists( txt ) ) paste( readLines( txt ), collapse = "\n\n" ) else ""
 }
+}
 
 \examples{
 # unit tests are in the unitTests directory of the package

_______________________________________________
Rcpp-commits mailing list
Rcpp-commits at lists.r-forge.r-project.org
https://lists.r-forge.r-project.org/cgi-bin/mailman/listinfo/rcpp-commits