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

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

Author: romain
Date: 2009-09-03 12:50:42 +0200 (Thu, 03 Sep 2009)
New Revision: 88

Added:
   pkg/RemoteREngine/R/start.server.R
   pkg/RemoteREngine/man/start.server.Rd
Modified:
   pkg/RemoteREngine/DESCRIPTION
   pkg/RemoteREngine/NAMESPACE
   pkg/RemoteREngine/R/zzz.R
Log:
added start.server R function. bump to 0.0-2

Modified: pkg/RemoteREngine/DESCRIPTION
===================================================================
--- pkg/RemoteREngine/DESCRIPTION	2009-08-27 16:00:40 UTC (rev 87)
+++ pkg/RemoteREngine/DESCRIPTION	2009-09-03 10:50:42 UTC (rev 88)
@@ -1,11 +1,11 @@
 Package: RemoteREngine
 Type: Package
 Title: RMI based REngine implementation 
-Version: 0.0-1
-Date: 2009-08-20
+Version: 0.0-2
+Date: 2009-09-03
 Author: Romain Francois 
 Maintainer: Romain Francois <francoisromain at free.fr>
 Description: RMI based REngine implementation
 License: GPL (>=3)
 LazyLoad: yes
-Depends:rJava
+Depends:rJava (>= 0.7-0)

Modified: pkg/RemoteREngine/NAMESPACE
===================================================================
--- pkg/RemoteREngine/NAMESPACE	2009-08-27 16:00:40 UTC (rev 87)
+++ pkg/RemoteREngine/NAMESPACE	2009-09-03 10:50:42 UTC (rev 88)
@@ -1,2 +1,3 @@
 export( javadoc )
+export( start.server )
 

Added: pkg/RemoteREngine/R/start.server.R
===================================================================
--- pkg/RemoteREngine/R/start.server.R	                        (rev 0)
+++ pkg/RemoteREngine/R/start.server.R	2009-09-03 10:50:42 UTC (rev 88)
@@ -0,0 +1,14 @@
+
+start.server <- function( name = "test", port = 1099, registry.host = "localhost", run = TRUE, arguments = commandArgs(TRUE) ){
+	rscript    <- file.path( R.home(), "bin", "Rscript" )
+	script <- system.file( 'exec', 'remoterengine', package = 'RemoteREngine' )
+    
+	arguments <- if( length( arguments ) == 0 ) "" else paste( arguments, collapse = " " )
+	cmd <- sprintf( '%s %s --name %s --port %d %s', rscript, script, name, port, arguments)
+    if( run ){
+        system( cmd )
+    } else{
+    	cmd
+    }
+}
+

Modified: pkg/RemoteREngine/R/zzz.R
===================================================================
--- pkg/RemoteREngine/R/zzz.R	2009-08-27 16:00:40 UTC (rev 87)
+++ pkg/RemoteREngine/R/zzz.R	2009-09-03 10:50:42 UTC (rev 88)
@@ -1,6 +1,5 @@
 
 .onLoad <- function( libname, pkgname){
-	cat( "there is no R functionality in this package\n" )
-	cat( "it is only packaged as an R package for convenience\n" )
+	# nothing yet
 }
 

Added: pkg/RemoteREngine/man/start.server.Rd
===================================================================
--- pkg/RemoteREngine/man/start.server.Rd	                        (rev 0)
+++ pkg/RemoteREngine/man/start.server.Rd	2009-09-03 10:50:42 UTC (rev 88)
@@ -0,0 +1,25 @@
+\name{start.server}
+\Rdversion{1.1}
+\alias{start.server}
+\title{
+Utility to start the R server
+}
+\description{
+Utility to start the R server
+}
+\usage{
+start.server(name = "test", port = 1099, registry.host = "localhost", 
+	run = TRUE, arguments = commandArgs(TRUE))
+}
+\arguments{
+  \item{name}{name of the R engine in the rmi registry}
+  \item{port}{port used by the rmi registry}
+  \item{registry.host}{hostname where the rmi registry runs}
+  \item{run}{logical, if TRUE the command is run. Otherwise it is just returned}
+  \item{arguments}{Additional arguments, typically used by the command line}
+}
+\author{
+Romain Francois <francoisromain at free.fr>
+}
+\keyword{manip}
+