tests/testthat/helper.R

In MangoTheCat/rematch2: Tidy Output from Regular Expression Matching

df <- function(...) {
  args <- list(...)
  structure(
    args,
    names = names(args),
    row.names = seq_along(args[[1]]),
    class = c("tbl_df", "tbl", "data.frame")
  )
}

asdf <- function(...) {
  as.data.frame(df(...))
}

mrec <- function(match, start, end) {
  list(
    match = as.character(match),
    start = as.integer(start),
    end = as.integer(end)
  )
}

narec <- function() {
  mrec(NA, NA, NA)
}

norec <- function() {
  mrec(character(), integer(), integer())
}

reclist <- function(...) {
  structure(list(...), class = "rematch_records")
}

allreclist <- function(...) {
  structure(list(...), class = "rematch_allrecords")
}