tests/testthat/test-assign_data_funcs.R

test_that("assign_data_funcs works", {
  expect_equal(
    {
      a <- get_series(template_test())
      a <- assign_data_funcs(a)
      isTRUE("fnc_str" %inn% a$lines)
    },
    T
  )
})

Try the Rapi package in your browser

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

Rapi documentation built on May 29, 2024, 2:34 a.m.