Auto-initialize MPI on loading and auto-finalize on detach

HPAC · Jul 28, 2016 · cc0ac8a · cc0ac8a
1 parent b9db77e
commit cc0ac8a
Show file tree

Hide file tree

Showing 4 changed files with 12 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -12,4 +12,5 @@ Collate:
   Classes.R
   Methods.R
   Operators.R
-  pkgname.R
+  pkgname.R
+  zzz.R
diff --git a/NAMESPACE b/NAMESPACE
@@ -1,2 +1,4 @@
 exportPattern("^[[:alpha:]]+")
+export(".onLoad")
+export(".onDetach")
 useDynLib(RElem)
diff --git a/R/Environment.R b/R/Environment.R
@@ -29,8 +29,6 @@ Initialize<-function(){
 Finalize<-function(){
   if( Initialized() )
     .Call("finalize")
-  else
-    cat("Not initialized\n");
 }
 
 WorldRank<-function(){

diff --git a/R/zzz.R b/R/zzz.R
@@ -0,0 +1,8 @@
+.onLoad <- function(library = find.package("RElem"), package = "RElem"){
+        Initialize()       
+}
+
+.onDetach <- function(library = find.package("RElem"), package = "RElem"){
+         cat("MPI finalized")
+         Finalize()
+}