R/block.R

In tourko/tastyworks: Extract Transactions from the Tastywork's confirmations

block <- R6::R6Class("Block", class = FALSE,
  private = list(
    patterns = c(),
    token_names = c(),
    augment = function(tokens) { tokens }
  ),

  public = list(
    probe = function(lines) {
      tokens <- lines %>%
        multiline$match(private$patterns, private$token_names) %>%
        purrr::when(purrr::is_empty(.) ~ ., ~ private$augment(.))
    }
  )
)