Giuliano Mega 1d23b31461
Block discovery simulator and analysis (#175)
* add block discovery simulator

* add analysis document for simpler cases of block discovery
2023-09-27 23:45:58 -06:00

17 lines
329 B
R

Stats <- R6Class(
'Stats',
public = list(
stats = NULL,
initialize = function() {
self$stats = list(list())
},
add_stat = function(...) {
self$stats <- c(self$stats, list(rlang::dots_list(...)))
self
},
as_tibble = function() purrr::map_df(self$stats, as_tibble)
)
)