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

 Package: Streamer

 Type: Package

 Title: Enabling stream processing of large files

-Version: 1.3.9

+Version: 1.3.10

 Author: Martin Morgan, Nishant Gopalakrishnan

 Maintainer: Martin Morgan <mtmorgan@fhcrc.org>

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

@@ -49,6 +49,7 @@

       idle = function() status() == "IDLE",

       yielding = function() status() == "YIELD",

       valued = function() status() == "VALUE",

+      done = function() any(status() == "DONE"),

       .idx = function() which.max(idle()),

       .yidx = function() if (.yid == 1L) 1L else match(.yid, names()),

@@ -110,8 +111,9 @@

                   consume(callSuper())

           }

           task <- tasks[[yidx]]

-          if (task$status != "DONE") {

+          if (!done()) {

               .self$tasks[[yidx]]$status <- "IDLE"

+              consume(callSuper())

               .self$.yid <- .yid + 1L

           }

           task$result

new file mode 100644

@@ -0,0 +1,13 @@

+test_MulticoreTeam_yield <- function()

+{

+    if (.Platform$OS.type != "unix")

+        return()

+    t <- Team(function(i) i, param=MulticoreParam(1L))

+    s <- stream(Seq(to=10), t)

+    checkIdentical(1L, yield(s))

+    checkIdentical(2L, yield(s))

+

+    t <- Team(function(i) i, param=MulticoreParam(1L))

+    s <- stream(Seq(to=10), t)

+    checkIdentical(1:10, sapply(s, c))

+}