avoid diffs in installed testing

git-svn-id: https://svn.r-project.org/R/trunk@87785 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: smeyer

src/library/grDevices/man/pretty.Date.Rd

@@ -45,8 +45,8 @@ pretty(Sys.Date())
 pretty(Sys.time(), n = 10)
 }
 pretty(as.Date("2000-03-01")) # R 1.0.0 came in a leap year
-
-## time ranges in diverse scales:% also in ../../../../tests/reg-tests-1c.R
+\donttest{% locale-dependent, tested in ../../../../tests/reg-tests-1c.R
+## time ranges in diverse scales:
 steps <- stats::setNames(,
     c("10 secs", "1 min", "5 mins", "30 mins", "6 hours", "12 hours",
       "1 DSTday", "2 weeks", "1 month", "6 months", "1 year",
@@ -58,4 +58,5 @@ lapply(steps,
            attr(at, "labels")
        })
 }
+}
 \keyword{dplot}

tests/Examples/grDevices-Ex.Rout.save

@@ -3674,61 +3674,6 @@ attr(,"class")
 > pretty(as.Date("2000-03-01")) # R 1.0.0 came in a leap year
 [1] "2000-02-28" "2000-02-29" "2000-03-01" "2000-03-02" "2000-03-03"
 [6] "2000-03-04"
-> 
-> ## time ranges in diverse scales:% also in ../../../../tests/reg-tests-1c.R
-> steps <- stats::setNames(,
-+     c("10 secs", "1 min", "5 mins", "30 mins", "6 hours", "12 hours",
-+       "1 DSTday", "2 weeks", "1 month", "6 months", "1 year",
-+       "10 years", "50 years", "1000 years"))
-> x <- as.POSIXct("2002-02-02 02:02")
-> lapply(steps,
-+        function(s) {
-+            at <- pretty(seq(x, by = s, length.out = 2), n = 5)
-+            attr(at, "labels")
-+        })
-$`10 secs`
-[1] "00" "02" "04" "06" "08" "10"
-
-$`1 min`
-[1] "00" "10" "20" "30" "40" "50" "00"
-
-$`5 mins`
-[1] "02:02" "02:03" "02:04" "02:05" "02:06" "02:07"
-
-$`30 mins`
-[1] "02:00" "02:10" "02:20" "02:30" "02:40"
-
-$`6 hours`
-[1] "02:00" "03:00" "04:00" "05:00" "06:00" "07:00" "08:00" "09:00"
-
-$`12 hours`
-[1] "00:00" "03:00" "06:00" "09:00" "12:00" "15:00"
-
-$`1 DSTday`
-[1] "Feb 02 00:00" "Feb 02 06:00" "Feb 02 12:00" "Feb 02 18:00" "Feb 03 00:00"
-[6] "Feb 03 06:00"
-
-$`2 weeks`
-[1] "Jan 28" "Feb 04" "Feb 11" "Feb 18"
-
-$`1 month`
-[1] "Jan 28" "Feb 04" "Feb 11" "Feb 18" "Feb 25" "Mar 04"
-
-$`6 months`
-[1] "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep"
-
-$`1 year`
-[1] "Jan" "Apr" "Jul" "Oct" "Jan" "Apr"
-
-$`10 years`
-[1] "2002" "2004" "2006" "2008" "2010" "2012" "2014"
-
-$`50 years`
-[1] "2000" "2010" "2020" "2030" "2040" "2050" "2060"
-
-$`1000 years`
-[1] "2000" "2200" "2400" "2600" "2800" "3000" "3200"
-
 > 
 > 
 >