Merge pull request #979 from dfalbel/bugfix/text-vectorization

Calling keras_array on adapt data

Author: dfalbel

.github/workflows/main.yaml

@@ -28,7 +28,7 @@ jobs:
       CRAN: ${{ matrix.cran }}
 
     steps:
-      - uses: actions/checkout@v1
+      - uses: actions/checkout@v2
       - uses: r-lib/actions/setup-r@master
       - uses: r-lib/actions/setup-pandoc@master
       - name: Install system dependencies

R/layer-methods.R

@@ -168,6 +168,10 @@ as_node_index <- function(node_index) {
 #'  
 #' @export
 adapt <- function(object, data, reset_state = NULL) {
+  
+  if (!inherits(data, "python.builtin.object"))
+    data <- keras_array(data)
+  
   # layers can implement adapt with different default reset_state
   if (is.null(reset_state))
     object$adapt(data)