1 blockr update

[DivadNojnarg]

Update to block 0.0.2

A question:

@JohnCoene Why is there a specific evaluate method?

#' @method evaluate_block clinical_timeline_block
#' @export
evaluate_block.clinical_timeline_block <- function(x, data, ...) {
  stopifnot(...length() == 0L)
  eval(
    substitute(data %>% expr, list(expr = blockr::generate_code(x))),
    list(data = data)
  )
}

This inherits from the block class so it would be handled by the current {blockr} method which is the same code as the above.

plop <- new_clinical_timeline_block()
attr(,"class")
[1] "clinical_timeline_block" "plot_block"              "block"     

[JohnCoene]

I remember trying without and it would not work, at least on previous versions. Does it work without? If so we can remove.

[DivadNojnarg]

During my test, it worked without. Can you double check with the latest blockr main?

[DivadNojnarg]

When we are done reworking the blockr block server logic we can also get rid of blockr:::generate_server_block(...). But not yet.