[Mboost-commits] r758 - in pkg: mboostDevel/R mboostPatch/R

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

Author: hofner
Date: 2014-01-09 19:12:53 +0100 (Thu, 09 Jan 2014)
New Revision: 758

Modified:
   pkg/mboostDevel/R/AAA.R
   pkg/mboostPatch/R/AAA.R
Log:
- fixed startup message (was broken for options("width") < 80)


Modified: pkg/mboostDevel/R/AAA.R
===================================================================
--- pkg/mboostDevel/R/AAA.R	2013-11-15 19:24:20 UTC (rev 757)
+++ pkg/mboostDevel/R/AAA.R	2014-01-09 18:12:53 UTC (rev 758)
@@ -30,14 +30,14 @@
     vers <- vers[grep("Version", vers)]
     vers <- gsub("(Version.* )([0-9]+\\.[0-9]+-[0-9]+)", "\\2", vers)
 
-    packageStartupMessage(paste("This is mboostDevel ", vers, ". ",
-                                "See ", sQuote("package?mboostDevel"), " and the NEWS file\n",
-                                "for a complete list of changes.\n",
-                                "Note: The default for the computation",
-                                " of the degrees of freedom has changed.\n",
-                                "      For details see section ",
-                                sQuote("Global Options"), " of ",
-                                sQuote("?bols"), ".", sep =""))
+    packageStartupMessage("This is mboostDevel ", vers, ". ", "See ",
+                          sQuote("package?mboostDevel"), " and the NEWS file\n",
+                          "for a complete list of changes.\n",
+                          "Note: The default for the computation",
+                          " of the degrees of freedom has changed.\n",
+                          "      For details see section ",
+                          sQuote("Global Options"), " of ",
+                          sQuote("?bols"), ".", appendLF = TRUE)
     return(TRUE)
 }
 

Modified: pkg/mboostPatch/R/AAA.R
===================================================================
--- pkg/mboostPatch/R/AAA.R	2013-11-15 19:24:20 UTC (rev 757)
+++ pkg/mboostPatch/R/AAA.R	2014-01-09 18:12:53 UTC (rev 758)
@@ -30,14 +30,14 @@
     vers <- vers[grep("Version", vers)]
     vers <- gsub("(Version.* )([0-9]+\\.[0-9]+-[0-9]+)", "\\2", vers)
 
-    packageStartupMessage(paste("This is mboost ", vers, ". ",
-                                "See ", sQuote("package?mboost"), " and the NEWS file\n",
-                                "for a complete list of changes.\n",
-                                "Note: The default for the computation",
-                                " of the degrees of freedom has changed.\n",
-                                "      For details see section ",
-                                sQuote("Global Options"), " of ",
-                                sQuote("?bols"), ".", sep =""))
+    packageStartupMessage("This is mboostDevel ", vers, ". ", "See ",
+                          sQuote("package?mboostDevel"), " and the NEWS file\n",
+                          "for a complete list of changes.\n",
+                          "Note: The default for the computation",
+                          " of the degrees of freedom has changed.\n",
+                          "      For details see section ",
+                          sQuote("Global Options"), " of ",
+                          sQuote("?bols"), ".", appendLF = TRUE)
     return(TRUE)
 }