tests/testthat/test-utils_time_keywords_dictionary.R

test_that("`utils_time_keywords_dictionary()` works", {
  df <- utils_time_keywords_dictionary()
  expect_equal(class(df), "data.frame")
  expect_equal(colnames(df), c("pattern", "keyword"))
})

Try the distantia package in your browser

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

distantia documentation built on April 4, 2025, 5:42 a.m.