Submit stops propagation

[JohnCoene]

The submit stops the propagation of changes from upstream blocks.

E.g.: example below, change and submit second block, notice that block below does not re-render.

library(blockr)

new_dat_block <- function(
  data,
  ...
) {
  blockr::new_block(
    name = "Cheat data",
    expr = quote(.(data)),
    fields = list(
      data = new_hidden_field(data)
    ),
    ...,
    class = c("dat_block", "data_block")
  )
}

new_block_add <- function() {
  new_block(
    fields = list(
      n = new_numeric_field(1L, min = 1L, max = 10L)
    ),
    submit = TRUE,
    expr = quote({
      row <- data.frame(
        value = rep(sample(1:9, 1), .(n))
      )
      row$label <- sample(letters, 1)
      rbind.data.frame(data, row)
    }),
    class = c("do_nothing", "transform_block")
  )
}

df <- data.frame(
  label = "FIRST",
  value = 1L
)

stack <- new_stack(
  new_dat_block(df),
  new_block_add(),
  new_block_add()
)

serve_stack(stack)
``