tests/testthat/helper-check-deparse-identical.R

check_deparse_identical <- function(x, ...) {
  tibble <- tibble::tibble
  tribble <- tibble::tribble
  mutate <- dplyr::mutate
  expect_identical(x, eval(deparsec(x, ...)))
}

check_deparse_equal <- function(x, ...) {
  tibble <- tibble::tibble
  tribble <- tibble::tribble
  mutate <- dplyr::mutate
  expect_equal(x, eval(deparsec(x, ...)))
}
krlmlr/lave documentation built on May 20, 2019, 6:17 p.m.