Attempt to fix Result block don't get updated properly #432

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: blockr
 Title: A block-based framework for data manipulation and visualization
-Version: 0.0.2.9031
+Version: 0.0.2.9035
 Authors@R: 
     c(person(given = "Nicolas",
              family = "Bennett",

NEWS.md

@@ -1,4 +1,4 @@
-# blockr 0.0.2.9031
+# blockr 0.0.2.9035
 
 ## Feature
 - Improved `submit` feature for blocks. Now submit isn't added as a class but as a special block attribute. When you design a block, you can pass the `submit` parameter like so:

R/server.R

@@ -236,7 +236,9 @@ generate_server_block <- function(
           if (is.null(in_dat()) && !inherits(x, "transform_block")) {
             evaluate_block(blk())
           } else {
-            if (nrow(in_dat()) == 0 && !inherits(x, "parser_block")) return(data.frame())
+            if (inherits(in_dat(), "data.frame") && nrow(in_dat()) == 0) {
+              return(data.frame())
+            }
             evaluate_block(blk(), data = in_dat())
           }
         })

_pkgdown.yml

@@ -206,6 +206,6 @@ reference:
 
 news:
  releases:
- - text: "blockr 0.0.2.9031"
+ - text: "blockr 0.0.2.9035"
  - text: "blockr 0.0.2"
  - text: "blockr 0.0.1.9000"

tests/testthat/_snaps/stack/stack-app-003.json

@@ -39,8 +39,8 @@
 
           ],
           "choices": [
-            "function (data) ",
-            "colnames(data)"
+            "structure(function (data) ",
+            "colnames(data), result = c(\"Time\", \"demand\"))"
           ],
           "multiple": true
         }

tests/testthat/_snaps/stack/stack-app-004.json

@@ -39,8 +39,8 @@
 
           ],
           "choices": [
-            "function (data) ",
-            "colnames(data)"
+            "structure(function (data) ",
+            "colnames(data), result = c(\"Time\", \"demand\"))"
           ],
           "multiple": true
         }

tests/testthat/_snaps/stack/stack-app-005.json

@@ -39,8 +39,8 @@
 
           ],
           "choices": [
-            "function (data) ",
-            "colnames(data)"
+            "structure(function (data) ",
+            "colnames(data), result = c(\"Time\", \"demand\"))"
           ],
           "multiple": true
         }

tests/testthat/_snaps/stack/stack-app-006.json

@@ -39,8 +39,8 @@
 
           ],
           "choices": [
-            "function (data) ",
-            "colnames(data)"
+            "structure(function (data) ",
+            "colnames(data), result = c(\"Time\", \"demand\"))"
           ],
           "multiple": true
         }

tests/testthat/_snaps/stack/stack-app-007.json

@@ -39,8 +39,8 @@
 
           ],
           "choices": [
-            "function (data) ",
-            "colnames(data)"
+            "structure(function (data) ",
+            "colnames(data), result = c(\"Time\", \"demand\"))"
           ],
           "multiple": true
         }

tests/testthat/test-validate-block.R

@@ -14,7 +14,6 @@ testServer(module_server_test, {
   # Invalidate
   session$setInputs("columns" = "")
   session$flushReact()
-  expect_error(out_dat())
   expect_false(is_valid$block)
   expect_identical(is_valid$message, "selected value(s) not among provided choices")
   expect_identical(is_valid$fields, "columns")