[Distr-commits] r828 - branches/distr-2.4/pkg/SweaveListingUtils/R pkg/SweaveListingUtils/R

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

Author: ruckdeschel
Date: 2012-09-23 12:17:36 +0200 (Sun, 23 Sep 2012)
New Revision: 828

Modified:
   branches/distr-2.4/pkg/SweaveListingUtils/R/SweaveListingUtils.R
   pkg/SweaveListingUtils/R/SweaveListingUtils.R
Log:
SweaveListingUtils: NOTE included in starting message that support will stop soon and that rather pkg knitr is to be used

Modified: branches/distr-2.4/pkg/SweaveListingUtils/R/SweaveListingUtils.R
===================================================================
--- branches/distr-2.4/pkg/SweaveListingUtils/R/SweaveListingUtils.R	2012-07-19 20:44:48 UTC (rev 827)
+++ branches/distr-2.4/pkg/SweaveListingUtils/R/SweaveListingUtils.R	2012-09-23 10:17:36 UTC (rev 828)
@@ -19,13 +19,16 @@
      unlockBinding(".CacheLength", asNamespace("SweaveListingUtils"))
      unlockBinding(".SweaveListingOptions", asNamespace("SweaveListingUtils"))
      msga <- gettext(
+    "NOTE: Support for this package will stop soon.\nPackage 'knitr' is providing the same functionality in a better way.\n"
+                   )
+     msgb <- gettext(
     "Some functions from package 'base' are intentionally masked ---see SweaveListingMASK().\n"
                    )
-    msgb <- gettext(
+    msgc <- gettext(
     "Note that global options are controlled by SweaveListingoptions() ---c.f. ?\"SweaveListingoptions\"."
                    )
 
-     buildStartupMessage(pkg = "SweaveListingUtils", msga, msgb,  
+     buildStartupMessage(pkg = "SweaveListingUtils", msga, msgb, msgc,
                          library = library, packageHelp = TRUE,
                     VIGNETTE = gettext(
 "There is a vignette to this package; try vignette(\"ExampleSweaveListingUtils\")."

Modified: pkg/SweaveListingUtils/R/SweaveListingUtils.R
===================================================================
--- pkg/SweaveListingUtils/R/SweaveListingUtils.R	2012-07-19 20:44:48 UTC (rev 827)
+++ pkg/SweaveListingUtils/R/SweaveListingUtils.R	2012-09-23 10:17:36 UTC (rev 828)
@@ -19,13 +19,16 @@
      unlockBinding(".CacheLength", asNamespace("SweaveListingUtils"))
      unlockBinding(".SweaveListingOptions", asNamespace("SweaveListingUtils"))
      msga <- gettext(
+    "NOTE: Support for this package will stop soon.\nPackage 'knitr' is providing the same functionality in a better way.\n"
+                   )
+     msgb <- gettext(
     "Some functions from package 'base' are intentionally masked ---see SweaveListingMASK().\n"
                    )
-    msgb <- gettext(
+    msgc <- gettext(
     "Note that global options are controlled by SweaveListingoptions() ---c.f. ?\"SweaveListingoptions\"."
                    )
 
-     buildStartupMessage(pkg = "SweaveListingUtils", msga, msgb,  
+     buildStartupMessage(pkg = "SweaveListingUtils", msga, msgb, msgc,
                          library = library, packageHelp = TRUE,
                     VIGNETTE = gettext(
 "There is a vignette to this package; try vignette(\"ExampleSweaveListingUtils\")."