[Remoterengine-commits] r132 - in pkg: . RemoteREngine.examples RemoteREngine.examples/R RemoteREngine.examples/man

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

Author: romain
Date: 2009-09-17 09:33:21 +0200 (Thu, 17 Sep 2009)
New Revision: 132

Added:
   pkg/RemoteREngine.examples/
   pkg/RemoteREngine.examples/DESCRIPTION
   pkg/RemoteREngine.examples/R/
   pkg/RemoteREngine.examples/R/zzz.R
   pkg/RemoteREngine.examples/man/
   pkg/RemoteREngine.examples/man/RemoteREngine.examples-package.Rd
Log:
initial version of test package

Added: pkg/RemoteREngine.examples/DESCRIPTION
===================================================================
--- pkg/RemoteREngine.examples/DESCRIPTION	                        (rev 0)
+++ pkg/RemoteREngine.examples/DESCRIPTION	2009-09-17 07:33:21 UTC (rev 132)
@@ -0,0 +1,12 @@
+Package: RemoteREngine.examples
+Type: Package
+Title: Examples of client code using the Remote R engine
+Version: 0.0-0
+Date: 2009-09-15
+Author: Romain Francois 
+Maintainer: Romain Francois <francoisromain at free.fr>
+Description: Examples of client code using the RemoteREngine package
+License: GPL (>=3)
+LazyLoad: yes
+Depends: RemoteREngine (>= 0.0-3), ant (>= 0.0-6)
+

Added: pkg/RemoteREngine.examples/R/zzz.R
===================================================================
--- pkg/RemoteREngine.examples/R/zzz.R	                        (rev 0)
+++ pkg/RemoteREngine.examples/R/zzz.R	2009-09-17 07:33:21 UTC (rev 132)
@@ -0,0 +1,25 @@
+.onAttach <- function(libname, pkgname){}
+
+client <- function( run = TRUE ){
+	rscript( "RemoteREngine.examples", "client", 
+		run = run, arguments = commandArgs(TRUE), dir = "exec" )
+}
+
+rscript <- function( package, script, arguments = commandArgs(TRUE), run = TRUE, dir = "exec" ){
+	
+	Rscript <- file.path( R.home(), "bin", "Rscript" )
+	script  <- system.file( dir, script, package = package )
+	if( !file.exists( script ) ){
+		stop( sprintf( "script '%s' does not exist", script) )
+	}
+	
+	arguments <- if( length( arguments ) == 0 ) "" else paste( arguments, collapse = " " )
+	cmd <- sprintf( '"%s" "%s" %s', Rscript, script, arguments )
+	
+	if( run ){
+		system( cmd )
+	} else {
+		cmd
+	}
+}
+

Added: pkg/RemoteREngine.examples/man/RemoteREngine.examples-package.Rd
===================================================================
--- pkg/RemoteREngine.examples/man/RemoteREngine.examples-package.Rd	                        (rev 0)
+++ pkg/RemoteREngine.examples/man/RemoteREngine.examples-package.Rd	2009-09-17 07:33:21 UTC (rev 132)
@@ -0,0 +1,27 @@
+\name{RemoteREngine.examples-package}
+\alias{RemoteREngine.examples-package}
+\alias{RemoteREngine.examples}
+\docType{package}
+\title{
+Set of examples for the RemoteREngine package
+}
+\description{
+This package contains several small java projects 
+acting as clients for the RemoteREngine server
+}
+\details{
+\tabular{ll}{
+Package: \tab RemoteREngine.examples\cr
+Type: \tab Package\cr
+Version: \tab 1.0\cr
+Date: \tab 2009-09-15\cr
+License: \tab GPL (>= 3.0)\cr
+LazyLoad: \tab yes\cr
+}
+}
+\author{
+Rmain Francois <francoisromain at free.fr>
+
+Maintainer: Romain Francois <francoiusromain at free.fr>
+}
+\keyword{ package }