@@ -1,7 +1,7 @@

 Package: Streamer

 Type: Package

 Title: Enabling stream processing of large files

-Version: 1.9.4

+Version: 1.9.5

 Author: Martin Morgan, Nishant Gopalakrishnan

 Maintainer: Martin Morgan <mtmorgan@fhcrc.org>

 Description: Large data files can be difficult to work with in R,

@@ -75,6 +75,7 @@ fl <- system.file(package="Rsamtools", "extdata", "ex1.sam")

 p <- ReadLinesProducer(fl, n = 1000)  # read 1000 lines at a time

 while (length(y <- yield(p)))

     print(length(y))

+close(p)

 p <- ReadTableProducer(fl, quote="", fill=TRUE, nrows=1000)

 while (length(y <- yield(p)))

@@ -112,7 +112,9 @@ rawParserFactory(separator = charToRaw("\n"), trim = separator)

 \examples{

 fl <- system.file("extdata", "s_1_sequence.txt", package="Streamer")

 b <- RawInput(fl, 100L, reader=rawReaderFactory(1e4))

-yield(b)

+length(value <- yield(b))

+head(value)

+close(b)

 }

 \keyword{classes}

@@ -134,6 +134,7 @@ s

 yield(s)

 reset(s)

 while (length(yield(s))) cat("tick\n")

+close(b)

 strm <- Stream(Seq(to=10), FunctionConsumer(function(y) 1/y))

 sapply(strm, c)

@@ -61,6 +61,7 @@ b <- RawInput(fl, 100L, reader=rawReaderFactory(1e4))

 s <- Stream(RawToChar(), Rev(), b)

 s

 head(yield(s)) 			# First chunk

+close(b)

 b <- RawInput(fl, 5000L, verbose=TRUE)

 d <- Downsample(sampledSize=50)

@@ -75,5 +76,6 @@ while (10 >= i && 0L != length(chunk <- yield(s)))

    cat("chunk", i, "length", length(chunk), "\n")

    i <- i + 1

 }

+close(b)

 }