tests/testthat/test-substitutions.R

test_that("substitutions work as intended", {
  x <- "aes as es ees c' c4 d, d2 a3 a ees,desdes'"
  y <- "a_ a_ e_ e_ c' c4 d, d2 a3 a e_,d_d_'"
  expect_equal(.noterev(x), y)
})

Try the tabr package in your browser

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

tabr documentation built on June 30, 2024, 1:07 a.m.