tests/testthat/test_states.R

ufs <- get_states()
test_that("Function to return Brazilian states is working", {

  # Basic testing
  expect_equal(class(ufs), c("tbl_df", "tbl", "data.frame"))
  expect_equal(ufs$state[ufs$abb == "AC"], "ACRE")
})

Try the genderBR package in your browser

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

genderBR documentation built on May 2, 2021, 5:07 p.m.