[R-gregmisc-users] SF.net SVN: r-gregmisc: [1189] trunk/SASxport/R/zzz.R

[<wa...@us...>]

Revision: 1189
          http://r-gregmisc.svn.sourceforge.net/r-gregmisc/?rev=1189&view=rev
Author:   warnes
Date:     2007-09-25 12:53:42 -0700 (Tue, 25 Sep 2007)

Log Message:
-----------
Display version and support information on package load

Modified Paths:
--------------
    trunk/SASxport/R/zzz.R

Modified: trunk/SASxport/R/zzz.R
===================================================================
--- trunk/SASxport/R/zzz.R	2007-09-18 17:42:27 UTC (rev 1188)
+++ trunk/SASxport/R/zzz.R	2007-09-25 19:53:42 UTC (rev 1189)
@@ -1,4 +1,22 @@
+loadMessage <- function()
+{
+  cat("\n")
+  ver <-packageDescription("SASxport", fields="Version") 
+  date <- packageDescription("SASxport", fields="Date") 
+  cat("Loaded SASxport version ", ver,  " (", date ,").\n", sep="")
+  cat("\n")
+  cat("  Updates and technical support available from Random Technologies, LLC\n")
+  cat("  <http://random-technologies-llc.com/contact>\n")
+  cat("\n")
+}
+
+
+
 .First.lib <- function(lib, pkg) {
   library.dynam("SASxport", pkg, lib)
+  loadMessage()
 }
 
+.onLoad <- function(lib, pkg) {
+  loadMessage()
+}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.