[Rcpp-commits] r4507 - pkg/Rcpp/R

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

Author: romain
Date: 2013-09-18 10:11:46 +0200 (Wed, 18 Sep 2013)
New Revision: 4507

Modified:
   pkg/Rcpp/R/Rcpp.package.skeleton.R
Log:
oops again

Modified: pkg/Rcpp/R/Rcpp.package.skeleton.R
===================================================================
--- pkg/Rcpp/R/Rcpp.package.skeleton.R	2013-09-18 08:08:52 UTC (rev 4506)
+++ pkg/Rcpp/R/Rcpp.package.skeleton.R	2013-09-18 08:11:46 UTC (rev 4507)
@@ -119,15 +119,16 @@
 	}
 	
 	# update the package description help page
-	package_help_page <- file.path( root, "man", sprintf( "%s-package.Rd" ) )
+	package_help_page <- file.path( root, "man", sprintf( "%s-package.Rd", name ) )
 	if( file.exists(package_help_page) ){
 	    lines <- readLines(package_help_page)
-	    lines <- gsub( "What license is it under?", license, fixed = TRUE )
+	    lines <- gsub( "What license is it under?", license, lines, fixed = TRUE )
 	    lines <- gsub( "Who to complain to <yourfault at somewhere.net>", 
-	        sprintf( "%s <%s>", maintainer, email), 
+	        sprintf( "%s <%s>", maintainer, email),  
+	        lines, 
 	        fixed = TRUE
 	        )
-	    lines <- gsub( "Who wrote it", author, fixed = TRUE )
+	    lines <- gsub( "Who wrote it", author, lines, fixed = TRUE )
 	    writeLines( lines, package_help_page )
 	}