[Distr-commits] r841 - in branches/distr-2.4/pkg/startupmsg: . tests/Examples

Thu Jan 10 06:10:37 CET 2013

Author: stamats
Date: 2013-01-10 06:10:36 +0100 (Thu, 10 Jan 2013)
New Revision: 841

Modified:
   branches/distr-2.4/pkg/startupmsg/DESCRIPTION
   branches/distr-2.4/pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save
Log:
update of Rout.save and date in DESCRIPTION file

Modified: branches/distr-2.4/pkg/startupmsg/DESCRIPTION
===================================================================

--- branches/distr-2.4/pkg/startupmsg/DESCRIPTION	2013-01-09 01:03:42 UTC (rev 840)
+++ branches/distr-2.4/pkg/startupmsg/DESCRIPTION	2013-01-10 05:10:36 UTC (rev 841)
@@ -1,7 +1,7 @@
 Package: startupmsg
 Encoding: latin1
 Version: 0.8
-Date: 2011-11-18
+Date: 2013-01-10
 Title: Utilities for start-up messages
 Description: Utilities for start-up messages
 Author: Peter Ruckdeschel

Modified: branches/distr-2.4/pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save
===================================================================
--- branches/distr-2.4/pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save	2013-01-09 01:03:42 UTC (rev 840)
+++ branches/distr-2.4/pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save	2013-01-10 05:10:36 UTC (rev 841)
@@ -1,6 +1,6 @@
 
-R version 2.15.1 Patched (2012-06-29 r59688) -- "Roasted Marshmallows"
-Copyright (C) 2012 The R Foundation for Statistical Computing
+R Under development (unstable) (2013-01-09 r61595) -- "Unsuffered Consequences"
+Copyright (C) 2013 The R Foundation for Statistical Computing
 ISBN 3-900051-07-0
 Platform: x86_64-unknown-linux-gnu (64-bit)
 
@@ -29,12 +29,23 @@
 
 > 
 > assign(".oldSearch", search(), pos = 'CheckExEnv')
+> assign(".ExTimings", "startupmsg-Ex.timings", pos = 'CheckExEnv')
+> cat("name\tuser\tsystem\telapsed\n", file=get(".ExTimings", pos = 'CheckExEnv'))
+> assign(".format_ptime",
++ function(x) {
++   if(!is.na(x[4L])) x[1L] <- x[1L] + x[4L]
++   if(!is.na(x[5L])) x[2L] <- x[2L] + x[5L]
++   format(x[1L:3L])
++ },
++ pos = 'CheckExEnv')
+> 
 > cleanEx()
 > nameEx("StartupUtilities")
 > ### * StartupUtilities
 > 
 > flush(stderr()); flush(stdout())
 > 
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: StartupUtilities
 > ### Title: Utilities for start-up messages
 > ### Aliases: startupmsg infoShow TOBEDONE NEWS readVersionInformation
@@ -95,7 +106,7 @@
 > ### reading information file utilities
 > readVersionInformation("stats")
 $ver
-[1] "2.15.1"
+[1] "3.0.0"
 
 $title
 [1] "The R Stats Package"
@@ -106,18 +117,22 @@
 > pointertoNEWS("stats") ## no NEWS file;
 NULL
 > NEWS("stats") ## no NEWS file; 
-Cannot open file '/home/kohlm/RTOP/Rbranch/library/stats/NEWS': No such file or directory
+Cannot open file '/home/kohlm/RTOP/Rdev/library/stats/NEWS': No such file or directory
 
 > ## for packages with NEWS file see e.g. randomForest, distr
 > 
 > 
 > 
+> 
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("StartupUtilities", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > cleanEx()
 > nameEx("myStartupUtilities")
 > ### * myStartupUtilities
 > 
 > flush(stderr()); flush(stdout())
 > 
+> assign(".ptime", proc.time(), pos = "CheckExEnv")
 > ### Name: myStartupUtilities
 > ### Title: Example functions to utilities for start-up messages
 > ### Aliases: mystartupMessage mySMHandler buildStartupMessage
@@ -131,7 +146,7 @@
 > 
 > ## issuing of messages controlled by options()
 > buildStartupMessage(pkg="stats", msg) 
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 :stats>  Note that you may set global options by options() --- cf.
 :stats>  ?"options".
@@ -140,13 +155,13 @@
 > suppressMessages(buildStartupMessage(pkg="stats", msg))
 > onlytypeStartupMessages(buildStartupMessage(pkg="stats", msg),
 +           atypes="version")
-The R Stats Package (version 2.15.1)
+The R Stats Package (version 3.0.0)
 
 > 
 > getOption("StartupBanner")
 NULL
 > buildStartupMessage(pkg="stats", msg)
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 :stats>  Note that you may set global options by options() --- cf.
 :stats>  ?"options".
@@ -159,7 +174,7 @@
 > options("StartupBanner"="complete");getOption("StartupBanner")
 [1] "complete"
 > buildStartupMessage(pkg="stats", msg)
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 :stats>  Note that you may set global options by options() --- cf.
 :stats>  ?"options".
@@ -168,13 +183,13 @@
 > options("StartupBanner"="something else");getOption("StartupBanner")
 [1] "something else"
 > buildStartupMessage(pkg="stats", msg)
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 > 
 > options("StartupBanner"=NULL);getOption("StartupBanner")
 NULL
 > buildStartupMessage(pkg="stats", msg)
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 :stats>  Note that you may set global options by options() --- cf.
 :stats>  ?"options".
@@ -183,7 +198,7 @@
 > 
 > MNH <- "http://www.r-project.org/"
 > buildStartupMessage(pkg="stats", msg, packageHelp=TRUE, MANUAL=MNH)
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 :stats>  Note that you may set global options by options() --- cf.
 :stats>  ?"options".
@@ -195,7 +210,7 @@
 > ## "demo/nlm.R" as a "manual": to be system-independent the 
 > ## first call is to be preferred 
 > buildStartupMessage(pkg="stats", msg, packageHelp=TRUE, MANUAL=c("demo","nlm.R"))
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 :stats>  Note that you may set global options by options() --- cf.
 :stats>  ?"options".
@@ -204,7 +219,7 @@
 
 > ###  works, too, (i.e. is equivalent) under Linux and Windows (at least):
 > buildStartupMessage(pkg="stats", msg, packageHelp=TRUE, MANUAL="demo/nlm.R")
-:stats>  The R Stats Package (version 2.15.1)
+:stats>  The R Stats Package (version 3.0.0)
 :stats> 
 :stats>  Note that you may set global options by options() --- cf.
 :stats>  ?"options".
@@ -215,10 +230,13 @@
 > 
 > 
 > 
+> 
+> assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
+> cat("myStartupUtilities", get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
 > ### * <FOOTER>
 > ###
 > cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  0.132 0 0.136 0 0 
+Time elapsed:  0.168 0.012 0.183 0 0 
 > grDevices::dev.off()
 null device 
           1 

