[Distr-commits] r1449 - in pkg/startupmsg: . inst man tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Thu Aug 29 10:38:15 CEST 2024
Author: ruckdeschel
Date: 2024-08-29 10:38:14 +0200 (Thu, 29 Aug 2024)
New Revision: 1449
Modified:
pkg/startupmsg/DESCRIPTION
pkg/startupmsg/inst/NEWS
pkg/startupmsg/man/StartupUtilities.Rd
pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save
Log:
[startupmsg] fixes a platform-dependent LF/CR issue tracked down by K. Hornik in
pkg distr which arises when checking against reference output while testing
Modified: pkg/startupmsg/DESCRIPTION
===================================================================
--- pkg/startupmsg/DESCRIPTION 2024-08-27 17:16:18 UTC (rev 1448)
+++ pkg/startupmsg/DESCRIPTION 2024-08-29 08:38:14 UTC (rev 1449)
@@ -1,15 +1,15 @@
Package: startupmsg
Encoding: UTF-8
-Version: 0.9.6.1
-Date: 2019-03-12
+Version: 0.9.7
+Date: 2024-08-29
Title: Utilities for Start-Up Messages
Description: Provides utilities to create or suppress start-up messages.
Authors at R: person("Peter", "Ruckdeschel", role=c("cre", "cph", "aut"),
- email="peter.ruckdeschel at uni-oldenburg.de",
- comment = c(ORCID = "0000-0001-7815-4809"))
+ email="peter.ruckdeschel at uni-oldenburg.de", comment = c(ORCID =
+ "0000-0001-7815-4809"))
Depends: R(>= 1.8.0)
ByteCompile: yes
License: LGPL-3
LastChangedDate: {$LastChangedDate$}
LastChangedRevision: {$LastChangedRevision$}
-VCS/SVNRevision: 1319
+VCS/SVNRevision: 1448
Modified: pkg/startupmsg/inst/NEWS
===================================================================
--- pkg/startupmsg/inst/NEWS 2024-08-27 17:16:18 UTC (rev 1448)
+++ pkg/startupmsg/inst/NEWS 2024-08-29 08:38:14 UTC (rev 1449)
@@ -3,6 +3,16 @@
######################################################################
##############
+v 0.9.7
+##############
+
+under the hood:
+with the help of K. Hornik identified spurious, platform dependent LF/CR issue
+and capsulated calls to infoShow() in Rd files by
+## IGNORE_RDIFF_BEGIN
+## IGNORE_RDIFF_END
+
+##############
v 0.9.6
##############
Modified: pkg/startupmsg/man/StartupUtilities.Rd
===================================================================
--- pkg/startupmsg/man/StartupUtilities.Rd 2024-08-27 17:16:18 UTC (rev 1448)
+++ pkg/startupmsg/man/StartupUtilities.Rd 2024-08-29 08:38:14 UTC (rev 1449)
@@ -155,8 +155,10 @@
readURLInformation("stats")
## for packages with URL file see e.g. dse1
pointertoNEWS("stats") ## no NEWS file;
+## IGNORE_RDIFF_BEGIN
NEWS("stats") ## no NEWS file;
## for packages with NEWS file see e.g. randomForest, distr
+## IGNORE_RDIFF_END
}
\seealso{\code{\link{buildStartupMessage}} for some illustration;
for the ideas taken up in this package, see mails "[Rd] Wishlist: 'quietly' argument for .onAttach() / .First.lib() "
Modified: pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save
===================================================================
--- pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save 2024-08-27 17:16:18 UTC (rev 1448)
+++ pkg/startupmsg/tests/Examples/startupmsg-Ex.Rout.save 2024-08-29 08:38:14 UTC (rev 1449)
@@ -1,7 +1,7 @@
-R version 3.0.1 Patched (2013-09-02 r63805) -- "Good Sport"
-Copyright (C) 2013 The R Foundation for Statistical Computing
-Platform: i386-w64-mingw32/i386 (32-bit)
+R Under development (unstable) (2024-08-17 r87027 ucrt) -- "Unsuffered Consequences"
+Copyright (C) 2024 The R Foundation for Statistical Computing
+Platform: x86_64-w64-mingw32/x64
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
@@ -21,20 +21,8 @@
> source(file.path(R.home("share"), "R", "examples-header.R"))
> options(warn = 1)
> options(pager = "console")
-> base::assign(".ExTimings", "startupmsg-Ex.timings", pos = 'CheckExEnv')
-> base::cat("name\tuser\tsystem\telapsed\n", file=base::get(".ExTimings", pos = 'CheckExEnv'))
-> base::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]
-+ options(OutDec = '.')
-+ format(x[1L:3L], digits = 7L)
-+ },
-+ pos = 'CheckExEnv')
->
-> ### * </HEADER>
> library('startupmsg')
-:startupmsg> Utilities for start-up messages (version 0.9)
+:startupmsg> Utilities for Start-Up Messages (version 0.9.7)
:startupmsg>
:startupmsg> For more information see ?"startupmsg",
:startupmsg> NEWS("startupmsg")
@@ -41,6 +29,7 @@
>
> base::assign(".oldSearch", base::search(), pos = 'CheckExEnv')
+> base::assign(".old_wd", base::getwd(), pos = 'CheckExEnv')
> cleanEx()
> nameEx("StartupUtilities")
> ### * StartupUtilities
@@ -47,7 +36,6 @@
>
> flush(stderr()); flush(stdout())
>
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: StartupUtilities
> ### Title: Utilities for start-up messages
> ### Aliases: startupmsg infoShow TOBEDONE NEWS readVersionInformation
@@ -108,7 +96,7 @@
> ### reading information file utilities
> readVersionInformation("stats")
$ver
-[1] "3.0.1"
+[1] "4.5.0"
$title
[1] "The R Stats Package"
@@ -118,15 +106,15 @@
> ## for packages with URL file see e.g. dse1
> pointertoNEWS("stats") ## no NEWS file;
NULL
+> ## IGNORE_RDIFF_BEGIN
> NEWS("stats") ## no NEWS file;
Warning in file.show(file.path(system.file(package = pkg, lib.loc = library), :
- file.show(): file 'C:/PROGRA~1/R/R-30~1.1PA/library/stats/NEWS' does not exist
+ file.show(): file 'C:/PF/R/R-devel5/library/stats/NEWS' does not exist
> ## for packages with NEWS file see e.g. randomForest, distr
+> ## IGNORE_RDIFF_END
>
>
>
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("StartupUtilities", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> cleanEx()
> nameEx("myStartupUtilities")
> ### * myStartupUtilities
@@ -133,7 +121,6 @@
>
> flush(stderr()); flush(stdout())
>
-> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: myStartupUtilities
> ### Title: Example functions to utilities for start-up messages
> ### Aliases: mystartupMessage mySMHandler buildStartupMessage
@@ -147,7 +134,7 @@
>
> ## issuing of messages controlled by options()
> buildStartupMessage(pkg="stats", msg)
-:stats> The R Stats Package (version 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
:stats> Note that you may set global options by options() --- cf.
:stats> ?"options".
@@ -156,13 +143,13 @@
> suppressMessages(buildStartupMessage(pkg="stats", msg))
> onlytypeStartupMessages(buildStartupMessage(pkg="stats", msg),
+ atypes="version")
-The R Stats Package (version 3.0.1)
+The R Stats Package (version 4.5.0)
>
> getOption("StartupBanner")
NULL
> buildStartupMessage(pkg="stats", msg)
-:stats> The R Stats Package (version 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
:stats> Note that you may set global options by options() --- cf.
:stats> ?"options".
@@ -175,7 +162,7 @@
> options("StartupBanner"="complete");getOption("StartupBanner")
[1] "complete"
> buildStartupMessage(pkg="stats", msg)
-:stats> The R Stats Package (version 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
:stats> Note that you may set global options by options() --- cf.
:stats> ?"options".
@@ -184,13 +171,13 @@
> options("StartupBanner"="something else");getOption("StartupBanner")
[1] "something else"
> buildStartupMessage(pkg="stats", msg)
-:stats> The R Stats Package (version 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
>
> options("StartupBanner"=NULL);getOption("StartupBanner")
NULL
> buildStartupMessage(pkg="stats", msg)
-:stats> The R Stats Package (version 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
:stats> Note that you may set global options by options() --- cf.
:stats> ?"options".
@@ -197,47 +184,47 @@
>
>
-> MNH <- "http://www.r-project.org/"
+> MNH <- "https://www.r-project.org/"
> buildStartupMessage(pkg="stats", msg, packageHelp=TRUE, MANUAL=MNH)
-:stats> The R Stats Package (version 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
:stats> Note that you may set global options by options() --- cf.
:stats> ?"options".
:stats>
-:stats> For more information see ?"stats", as well as
-:stats> http://www.r-project.org/
+:stats> For more information see ?"stats"
> ## not quite a manual, but to illustrate the principle:
> ## "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 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
:stats> Note that you may set global options by options() --- cf.
:stats> ?"options".
:stats>
-:stats> For more information see ?"stats"
+:stats> For more information see ?"stats", as well as
+:stats> C:/PF/R/R-devel5/library/stats/demo/nlm.R
> ### 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 3.0.1)
+:stats> The R Stats Package (version 4.5.0)
:stats>
:stats> Note that you may set global options by options() --- cf.
:stats> ?"options".
:stats>
-:stats> For more information see ?"stats"
+:stats> For more information see ?"stats", as well as
+:stats> C:/PF/R/R-devel5/library/stats/demo/nlm.R
>
>
>
>
-> base::assign(".dptime", (proc.time() - get(".ptime", pos = "CheckExEnv")), pos = "CheckExEnv")
-> base::cat("myStartupUtilities", base::get(".format_ptime", pos = 'CheckExEnv')(get(".dptime", pos = "CheckExEnv")), "\n", file=base::get(".ExTimings", pos = 'CheckExEnv'), append=TRUE, sep="\t")
> ### * <FOOTER>
> ###
+> cleanEx()
> options(digits = 7L)
> base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 0.27 0.06 0.34 NA NA
+Time elapsed: 0.2 0 0.24 NA NA
> grDevices::dev.off()
null device
1
More information about the Distr-commits
mailing list