[Rcpp-commits] r954 - in pkg/Rcpp: R src

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

Author: romain
Date: 2010-04-03 13:00:14 +0200 (Sat, 03 Apr 2010)
New Revision: 954

Modified:
   pkg/Rcpp/R/zzz.R
   pkg/Rcpp/src/RcppCommon.cpp
Log:
remove code I did not intend to commit

Modified: pkg/Rcpp/R/zzz.R
===================================================================
--- pkg/Rcpp/R/zzz.R	2010-04-03 10:58:34 UTC (rev 953)
+++ pkg/Rcpp/R/zzz.R	2010-04-03 11:00:14 UTC (rev 954)
@@ -19,11 +19,3 @@
 	.Call( "initRcpp", PACKAGE = pkgname )
 }
 
-httpd_delegate <- function(path, query, ...){
-	if( grepl( "^/Rcpp/", path ) ){
-		clazz <- sub( "^/Rcpp/.*[.]html$", "\\1", path )
-		tf <- tempfile()
-		unit_test_examples( clazz, tf )
-		return( list( file = tf ) )
-	}
-}

Modified: pkg/Rcpp/src/RcppCommon.cpp
===================================================================
--- pkg/Rcpp/src/RcppCommon.cpp	2010-04-03 10:58:34 UTC (rev 953)
+++ pkg/Rcpp/src/RcppCommon.cpp	2010-04-03 11:00:14 UTC (rev 954)
@@ -122,17 +122,6 @@
 
 SEXP initRcpp(){
 	initUncaughtExceptionHandler() ;
-	using namespace Rcpp ;
-	Environment tools = Environment::namespace_env( "tools" );
-	Environment::Binding httpd_ = tools["httpd"] ;
-	httpd_.unlock() ;
-	
-	Function httpd = httpd_ ;
-	Language body( httpd.body() ) ;
-	body.insert( 1, ExpressionVector("if( ! is.null( .result <- Rcpp:::httpd_delegate(path, query, ...) ) ){ return( .result ) }")[0] ) ;
-	httpd_ = httpd ;
-	httpd_.lock() ;
-	
 	return R_NilValue ;
 }