version 1.53

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: snowfall
 Type: Package
 Title: Easier cluster computing (based on snow).
-Version: 1.52
-Date: 2008-07-01
+Version: 1.53
+Date: 2008-08-22
 Author: Jochen Knaus
 Maintainer: Jochen Knaus <jo@imbi.uni-freiburg.de>
 Description: Toplevel wrapper around snow for easier development of
@@ -13,4 +13,4 @@ Description: Toplevel wrapper around snow for easier development of
 Suggests: snow, Rmpi
 Depends:
 License: GPL
-Packaged: Tue Jul  1 12:37:46 2008; jo
+Packaged: Fri Aug 22 11:18:50 2008; jo

R/init.R

@@ -243,9 +243,18 @@ sfInit <- function( parallel=NULL,
   return( invisible( TRUE ) )
 }
 
+##*****************************************************************************
+## Check if sfInit() was called. This function is called before any function
+## which need initialisation of the cluster.
+##
+## Previous it stops with error, now it calls sfInit() without parameters,
+## so sfInit() does not have to be called explicitely.
+##*****************************************************************************
 sfCheck <- function() {
-  if( !exists( ".sfOption" ) || !.sfOption$init )
-    stop( "Calling to snowfall function is only allowed AFTER calling sfInit()!" )
+  if( !exists( ".sfOption" ) || !.sfOption$init ) {
+    message( "Calling a snowfall function without calling 'sfInit' first.\n'sfInit()' is called now." )
+    return( invisible( sfInit() ) )
+  }
 
   return( invisible( TRUE ) )
 }