[IPSUR-commits] r211 - in pkg/RcmdrPlugin.IPSUR: . R

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

Author: gkerns
Date: 2013-01-19 23:21:50 +0100 (Sat, 19 Jan 2013)
New Revision: 211

Modified:
   pkg/RcmdrPlugin.IPSUR/DESCRIPTION
   pkg/RcmdrPlugin.IPSUR/NAMESPACE
   pkg/RcmdrPlugin.IPSUR/R/First.r
Log:
updates for R-3.0.0


Modified: pkg/RcmdrPlugin.IPSUR/DESCRIPTION
===================================================================
--- pkg/RcmdrPlugin.IPSUR/DESCRIPTION	2012-03-23 16:11:56 UTC (rev 210)
+++ pkg/RcmdrPlugin.IPSUR/DESCRIPTION	2013-01-19 22:21:50 UTC (rev 211)
@@ -1,13 +1,14 @@
-Package: RcmdrPlugin.IPSUR
-Version: 0.1-8
-Date: 2012-03-23
-Title: An IPSUR Plugin for the R Commander
-Author: G. Jay Kerns <gkerns at ysu.edu> with contributions by Theophilius Boye and Tyler Drombosky, adapted from the work of John Fox et al.
-Maintainer: G. Jay Kerns <gkerns at ysu.edu>
-Depends: Rcmdr (>= 1.4-0)
-Suggests: abind, car, distr, distrEx, e1071, effects (>= 1.0-7), foreign, grid, lattice, lmtest, MASS, mgcv, multcomp (>= 0.991-2), nlme, nnet, qcc, relimp, RODBC
-LazyLoad: no
-Description:
- This package is an R Commander plugin that accompanies IPSUR, an Introduction to Probability and Statistics Using R.
-License: GPL (>= 2)
-URL: http://www.r-project.org, http://ipsur.r-forge.r-project.org/
+Package: RcmdrPlugin.IPSUR
+Version: 0.1-9
+Date: 2013-01-19
+Title: An IPSUR Plugin for the R Commander
+Author: G. Jay Kerns <gkerns at ysu.edu> with contributions by Theophilius Boye and Tyler Drombosky, adapted from the work of John Fox et al.
+Maintainer: G. Jay Kerns <gkerns at ysu.edu>
+Imports: Rcmdr (>= 1.4-0)
+Suggests: abind, car, distr, distrEx, e1071, effects (>= 1.0-7), foreign, grid, lattice, lmtest, MASS, mgcv, multcomp (>= 0.991-2), nlme, nnet, qcc, relimp, RODBC
+LazyLoad: yes
+LazyData: yes
+Description:
+ This package is an R Commander plugin that accompanies IPSUR, an Introduction to Probability and Statistics Using R.
+License: GPL (>= 2)
+URL: http://www.r-project.org, http://ipsur.org/

Modified: pkg/RcmdrPlugin.IPSUR/NAMESPACE
===================================================================
--- pkg/RcmdrPlugin.IPSUR/NAMESPACE	2012-03-23 16:11:56 UTC (rev 210)
+++ pkg/RcmdrPlugin.IPSUR/NAMESPACE	2013-01-19 22:21:50 UTC (rev 211)
@@ -1,3 +1,3 @@
-import(tcltk, stats)
+import(stats, Rcmdr)
 exportPattern("^[^\\.]")
 

Modified: pkg/RcmdrPlugin.IPSUR/R/First.r
===================================================================
--- pkg/RcmdrPlugin.IPSUR/R/First.r	2012-03-23 16:11:56 UTC (rev 210)
+++ pkg/RcmdrPlugin.IPSUR/R/First.r	2013-01-19 22:21:50 UTC (rev 211)
@@ -1,19 +1,24 @@
-# Last modified Feb 15, 2008
-
-# Note: the following function (with contributions from Richard Heiberger) 
-# can be included in any Rcmdr plug-in package to cause the package to load
-# the Rcmdr if it is not already loaded
-
-
-.onAttach <- function(libname, pkgname){
-       if (!interactive()) return()
-       Rcmdr <- options()$Rcmdr
-       plugins <- Rcmdr$plugins
-       if ((!pkgname %in% plugins) && !getRcmdr("autoRestart")) {
-               Rcmdr$plugins <- c(plugins, pkgname)
-               options(Rcmdr=Rcmdr)
-               closeCommander(ask=FALSE, ask.save=TRUE)
-               Commander()
-       }
-}
-
+# Last modified Jan 19, 2013
+
+# Note: the following function (with contributions from Richard Heiberger) 
+# can be included in any Rcmdr plug-in package to cause the package to load
+# the Rcmdr if it is not already loaded
+
+.onAttach <- function(libname, pkgname){
+  if (!interactive()) return()
+  Rcmdr <- options()$Rcmdr
+  plugins <- Rcmdr$plugins
+  if (!pkgname %in% plugins) {
+    Rcmdr$plugins <- c(plugins, pkgname)
+    options(Rcmdr=Rcmdr)
+    if("package:Rcmdr" %in% search()) {
+      if(!getRcmdr("autoRestart")) {
+        closeCommander(ask=FALSE, ask.save=TRUE)
+        Commander()
+      }
+    }
+    else {
+      Commander()
+    }
+  }
+}
\ No newline at end of file