From ee0d4d057438de508619054f05a7f6c1cd01fcf9 Mon Sep 17 00:00:00 2001
From: Peter Solymos <psolymos@gmail.com>
Date: Tue, 9 Jan 2018 22:02:27 -0700
Subject: [PATCH] adjust date before release

---
 DESCRIPTION      | 2 +-
 NEWS.md          | 5 ++---
 man/pboptions.Rd | 9 ++++++---
 3 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index b0f7f17d..534d16d5 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: pbapply
 Type: Package
 Title: Adding Progress Bar to '*apply' Functions
 Version: 1.3-4
-Date: 2017-08-07
+Date: 2018-01-09
 Author: Peter Solymos [aut, cre], Zygmunt Zawadzki [aut]
 Maintainer: Peter Solymos <solymos@ualberta.ca>
 Description: A lightweight package that adds
diff --git a/NEWS.md b/NEWS.md
index 67d250e1..784da7a9 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,9 +1,8 @@
 # User-visible changes in the pbapply R package
 
-## Version 1.3-4, August 7, 2017
+## Version 1.3-4, January 9, 2018
 
-* New function `pbtypes()` to print available pb types
-  depending on OS.
+* New function `pbtypes()` to print available pb types depending on OS.
 * `getTimeAsString` is now exported, with description and examples.
 * New `pboption` `use_lb` to switch on load balancing for parallel clusters,
   `FALSE` by default (feature request #28).
diff --git a/man/pboptions.Rd b/man/pboptions.Rd
index 5ec098e3..7a356aff 100644
--- a/man/pboptions.Rd
+++ b/man/pboptions.Rd
@@ -119,12 +119,15 @@ Progress bars used in the functions:
 \code{\link[tcltk]{tkProgressBar}}
 }
 \examples{
+## increase sluggishness to admire the progress bar longer
+sluggishness <- 0.01
+
 ## for loop
 fun1 <- function() {
     pb <- startpb(0, 10)
     on.exit(closepb(pb))
     for (i in 1:10) {
-        Sys.sleep(0.15)
+        Sys.sleep(sluggishness)
         setpb(pb, i)
     }
     invisible(NULL)
@@ -135,7 +138,7 @@ fun2 <- function() {
     on.exit(closepb(pb))
     i <- 1
     while (i < 10) {
-        Sys.sleep(0.15)
+        Sys.sleep(sluggishness)
         setpb(pb, i)
         i <- i + 1
     }
@@ -157,7 +160,7 @@ fun1()
 
 ## dealing with nested progress bars
 ## when only one the 1st one is needed
-f <- function(x) Sys.sleep(0.01)
+f <- function(x) Sys.sleep(sluggishness)
 g <- function(x) pblapply(1:10, f)
 tmp <- lapply(1:10, g) # undesirable
 ## here is the desirable solution