tests/testthat/test-fundamentals-definitions.R

test_that("can get fundamentals definitions", {
  skip_if_no_token()

  x <- riingo_fundamentals_definitions()

  cols <- c("dataCode", "name", "description", "statementType", "units")

  expect_identical(all(cols %in% names(x)), TRUE)
})

Try the riingo package in your browser

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

riingo documentation built on Sept. 13, 2020, 5:15 p.m.