keep wrapping kenerator in keras_array()

Author: javierluraschi

R/model.R

@@ -937,7 +937,7 @@ as_generator.function <- function(x) {
   python_path <- system.file("python", package = "keras")
   tools <- reticulate::import_from_path("kerastools", path = python_path)
   iter <- reticulate::py_iterator(function() {
-    elem <- x()
+    elem <- keras_array(x())
     reticulate::tuple(elem[1], elem[2])
   })
   tools$generator$iter_generator(iter)