Prevent private random stream from leaking out. Fixes #1763

DESCRIPTION

@@ -64,7 +64,7 @@ Depends:
     methods
 Imports:
     utils,
-    httpuv (>= 1.3.3),
+    httpuv (>= 1.3.5),
     mime (>= 0.3),
     jsonlite (>= 0.9.16),
     xtable,
@@ -82,6 +82,8 @@ Suggests:
     rmarkdown,
     ggplot2,
     magrittr
+Remotes:
+    rstudio/httpuv@wch-getrngstate
 URL: http://shiny.rstudio.com
 BugReports: https://github.com/rstudio/shiny/issues
 Collate: 

NEWS.md

@@ -37,6 +37,8 @@ shiny 1.0.3.9001
 
 * Fixed [#1755](https://github.com/rstudio/shiny/issues/1755): dynamic htmlwidgets sent the path of the package on the server to the client. ([#1756](https://github.com/rstudio/shiny/pull/1756))
 
+* Fixed [#1763](https://github.com/rstudio/shiny/issues/1763): Shiny's private random stream leaked out into the main random stream. ([#1768](https://github.com/rstudio/shiny/pull/1768))
+
 ### Library updates
 
 

R/utils.R

@@ -74,6 +74,9 @@ withPrivateSeed <- function(expr) {
     } else {
       rm(.Random.seed, envir = .GlobalEnv, inherits = FALSE)
     }
+    # Need to call this to make sure that the value of .Random.seed gets put
+    # into R's internal RNG state. (Issue #1763)
+    httpuv::getRNGState()
   })
 
   expr