tests/testthat/test-query_bndespar_portfolio.R

df <- query_bndespar_portfolio()

test_that("Check row number", {
  expect_equal(ncol(df), 13)
  expect_gt(nrow(df), 3122)
})

Try the bndesr package in your browser

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

bndesr documentation built on April 3, 2025, 10:36 p.m.