tests/testthat/test-idb_indices.R

In ropenscilabs/ridb: Client for the Index Database of Remote Sensing Indices

context("idb_indices")

test_that("idb_indices works", {
  skip_on_cran()

  aa <- idb_indices()

  expect_is(aa, "tbl_df")
  expect_is(aa, "data.frame")
  expect_type(aa$no, "integer")
  expect_type(aa$abbreviation, "character")
  expect_type(aa$formula, "character")
  expect_true(any(grepl("InvisibleTimes", aa$formula)))
  expect_equal(colnames(aa),
               c("no", "name", "abbreviation", "formula", "variables", "source",
                 "no_sensors", "no_applications", "no_references"))
})