fix warning + simplify stack example

BristolMyersSquibb · May 31, 2024 · 56e4757 · 56e4757
1 parent 3fd3086
commit 56e4757
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 12 deletions.
diff --git a/R/server.R b/R/server.R
@@ -268,6 +268,7 @@ generate_server.data_block <- function(x, id, ...) {
 }
 
 #' @param in_dat Reactive input data
+#' @param is_prev_valid Useful to validate the current block
 #' @rdname generate_server
 #' @export
 generate_server.transform_block <- function(x, in_dat, id, is_prev_valid, ...) {

diff --git a/inst/examples/stack/app.R b/inst/examples/stack/app.R
@@ -1,13 +1,2 @@
 library(blockr)
-
-stack <- new_stack()
-id <- "mystack"
-
-shiny::shinyApp(
-  ui = bslib::page_fluid(
-    generate_ui(stack, id)
-  ),
-  server = function(input, output, session) {
-    stack <- generate_server(stack, id)
-  }
-)
+serve_stack(new_stack())
diff --git a/man/generate_server.Rd b/man/generate_server.Rd