Fix example

jeroen · Oct 19, 2014 · faaab05 · faaab05
1 parent a174ab3
commit faaab05
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/stream.R b/R/stream.R
@@ -82,7 +82,7 @@
 #' # Calculate delays for flights over 1000 miles in batches of 5k
 #' library(dplyr)
 #' con_in <- gzcon(url("http://jeroenooms.github.io/data/nycflights13.json.gz"))
-#' con_out <- file(tmp <- tempfile(), open = "w")
+#' con_out <- file(tmp <- tempfile(), open = "wb")
 #' stream_in(con_in, handler = function(df){
 #'   df <- dplyr::filter(df, distance > 1000)
 #'   df <- dplyr::mutate(df, delta = dep_delay - arr_delay)

diff --git a/man/stream_in.Rd b/man/stream_in.Rd
@@ -98,7 +98,7 @@ all.equal(flights4, as.data.frame(flights))
 # Calculate delays for flights over 1000 miles in batches of 5k
 library(dplyr)
 con_in <- gzcon(url("http://jeroenooms.github.io/data/nycflights13.json.gz"))
-con_out <- file(tmp <- tempfile(), open = "w")
+con_out <- file(tmp <- tempfile(), open = "wb")
 stream_in(con_in, handler = function(df){
   df <- dplyr::filter(df, distance > 1000)
   df <- dplyr::mutate(df, delta = dep_delay - arr_delay)