brd <- new_board(
c(
a = new_dataset_block(),
b = new_dataset_block(),
c = new_scatter_block(),
d = new_subset_block()
),
list(from = c("a", "d"), to = c("d", "c"))
)
as.matrix(brd)
topo_sort(brd)
is_acyclic(brd)
Run the code above in your browser using DataLab