tests/testthat/helper-expect.R

expect_identical_except_bytecode <- function(x, y) {
  x <- readLines(x)
  y <- readLines(y)
  expect_identical(
    x[!grepl("^    ## <bytecode:", x)],
    y[!grepl("^    ## <bytecode:", y)]
  )
}

Try the felp package in your browser

Any scripts or data that you put into this service are public.

felp documentation built on Oct. 9, 2022, 5:05 p.m.