tests/testthat/test-utilities.R

test_that("utilities1: get_dictionary() function works as expected.", {
  
  
  res <- get_dictionary(mtcars, "mtcars")
  
  res
  
  expect_equal(is.null(res), FALSE)
  expect_equal(nrow(res), 11)
  
  
})

Try the fetch package in your browser

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

fetch documentation built on May 29, 2024, 4:37 a.m.