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 Sept. 21, 2023, 5:06 p.m.