R/log.R

In datr-studio/bladerunr: bladerunr: incisive model runs across a grid of parameters

.log <- new.env(parent = emptyenv())

.log$data <- tibble::tibble(
  test = integer(),
  attempt = integer(),
  reason = character(),
  details = character()
)

#' @import tibble
reset_log <- function() {
  .log$data <- tibble::tibble(
    test = integer(),
    attempt = integer(),
    reason = character(),
    details = character()
  )
}

add_to_log <- function(...) {
  .log$data <- tibble::add_row(
    .log$data,
    ...
  )
}



get_log <- function() {
  .log$data
}