[Dplr-commits] r1077 - in pkg/dplR: R man

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

Author: mvkorpel
Date: 2018-01-29 18:29:31 +0100 (Mon, 29 Jan 2018)
New Revision: 1077

Modified:
   pkg/dplR/R/wavelet.plot.R
   pkg/dplR/man/wavelet.plot.Rd
Log:
Fixed translations in wavelet.plot()


Modified: pkg/dplR/R/wavelet.plot.R
===================================================================
--- pkg/dplR/R/wavelet.plot.R	2018-01-29 17:02:07 UTC (rev 1076)
+++ pkg/dplR/R/wavelet.plot.R	2018-01-29 17:29:31 UTC (rev 1077)
@@ -1,10 +1,15 @@
 wavelet.plot <-
     function(wave.list,
              wavelet.levels = quantile(wave.list$Power, probs=(0:10)/10),
-             add.coi = TRUE, add.sig = TRUE, x.lab = gettext("Time"),
-             period.lab = gettext("Period"), crn.lab = gettext("RWI"),
+             add.coi = TRUE, add.sig = TRUE,
+             x.lab = gettext("Time", domain = "R-dplR"),
+             period.lab = gettext("Period", domain = "R-dplR"),
+             crn.lab = gettext("RWI", domain = "R-dplR"),
              key.cols = rev(rainbow(length(wavelet.levels)-1)),
-             key.lab = parse(text = paste0("\"", gettext("Power"), "\"^2")),
+             key.lab = parse(text = paste0("\"",
+                                           gettext("Power",
+                                                   domain = "R-dplR"),
+                                           "\"^2")),
              add.spline = FALSE, f = 0.5, nyrs = NULL,
              crn.col = "black", crn.lwd = 1,coi.col='black',
              crn.ylim = range(wave.list$y) * c(0.95, 1.05),

Modified: pkg/dplR/man/wavelet.plot.Rd
===================================================================
--- pkg/dplR/man/wavelet.plot.Rd	2018-01-29 17:02:07 UTC (rev 1076)
+++ pkg/dplR/man/wavelet.plot.Rd	2018-01-29 17:29:31 UTC (rev 1077)
@@ -10,10 +10,15 @@
 wavelet.plot(wave.list,
              wavelet.levels = quantile(wave.list$Power,
                                        probs = (0:10)/10),
-             add.coi = TRUE, add.sig = TRUE, x.lab = gettext("Time"),
-             period.lab = gettext("Period"), crn.lab = gettext("RWI"),
+             add.coi = TRUE, add.sig = TRUE,
+             x.lab = gettext("Time", domain = "R-dplR"),
+             period.lab = gettext("Period", domain = "R-dplR"),
+             crn.lab = gettext("RWI", domain = "R-dplR"),
              key.cols = rev(rainbow(length(wavelet.levels)-1)),
-             key.lab = parse(text=paste0("\"", gettext("Power"), "\"^2")),
+             key.lab = parse(text=paste0("\"",
+                                         gettext("Power",
+                                                 domain="R-dplR"),
+                                         "\"^2")),
              add.spline = FALSE, f = 0.5, nyrs = NULL,
              crn.col = "black", crn.lwd = 1,coi.col='black',
              crn.ylim = range(wave.list$y) * c(0.95, 1.05),