[Rcpp-commits] r2740 - pkg/Rcpp/inst/doc

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Wed Dec 8 04:36:00 CET 2010


Author: edd
Date: 2010-12-08 04:36:00 +0100 (Wed, 08 Dec 2010)
New Revision: 2740

Modified:
   pkg/Rcpp/inst/doc/Rcpp-unitTests.Rnw
Log:
small prettyifcation


Modified: pkg/Rcpp/inst/doc/Rcpp-unitTests.Rnw
===================================================================
--- pkg/Rcpp/inst/doc/Rcpp-unitTests.Rnw	2010-12-08 03:35:31 UTC (rev 2739)
+++ pkg/Rcpp/inst/doc/Rcpp-unitTests.Rnw	2010-12-08 03:36:00 UTC (rev 2740)
@@ -3,9 +3,20 @@
 \usepackage{vmargin}
 \setmargrb{0.75in}{0.75in}{0.75in}{0.75in}
 
+\RequirePackage{ae,mathpple}    % ae as a default font pkg works with Sweave
+\RequirePackage[T1]{fontenc}
+
+<<echo=FALSE,print=FALSE>>=
+require( Rcpp )
+prettyVersion <- packageDescription("Rcpp")$Version
+prettyDate <- format(Sys.Date(), "%B %e, %Y")
+@
+
 \usepackage[colorlinks]{hyperref}
 \author{Dirk Eddelbuettel \and Romain Fran\c{c}ois}
-\title{Rcpp : Unit testing results}
+\title{\texttt{Rcpp}: Unit testing results}
+\date{\texttt{Rcpp} version \Sexpr{prettyVersion} as of \Sexpr{prettyDate}}
+
 \begin{document}
 \maketitle
 
@@ -13,9 +24,9 @@
 <<echo=F,results=tex>>=
 results <- "unitTests-results/Rcpp-unitTests.txt"
 if( file.exists( results ) ){
-	writeLines( readLines( results ) ) 
+	writeLines( readLines( results ) )
 } else{
-	writeLines( "unit test results not available" ) 
+	writeLines( "unit test results not available" )
 }
 @
 \end{verbatim}



More information about the Rcpp-commits mailing list