# Create a bind rows block
new_bind_rows_block()
if (interactive()) {
library(blockr.core)
library(blockr.dplyr)
# Basic usage - stack filtered datasets
serve(
new_board(
blocks = list(
iris_data = new_dataset_block(dataset = "iris"),
setosa = new_filter_expr_block(exprs = list("Species == 'setosa'")),
versicolor = new_filter_expr_block(exprs = list("Species == 'versicolor'")),
combined = new_bind_rows_block()
),
links = links(
from = c("iris_data", "iris_data", "setosa", "versicolor"),
to = c("setosa", "versicolor", "combined", "combined"),
input = c("data", "data", "1", "2")
)
)
)
# With ID column to track source
serve(
new_board(
blocks = list(
iris_data = new_dataset_block(dataset = "iris"),
setosa = new_filter_expr_block(exprs = list("Species == 'setosa'")),
versicolor = new_filter_expr_block(exprs = list("Species == 'versicolor'")),
combined = new_bind_rows_block(id_name = "source")
),
links = links(
from = c("iris_data", "iris_data", "setosa", "versicolor"),
to = c("setosa", "versicolor", "combined", "combined"),
input = c("data", "data", "1", "2")
)
)
)
}
Run the code above in your browser using DataLab