tests/testthat/test-eezsvshighseas.R

context("eezsvshighseas")

test_that("eezsvshighseas works", {
  skip_on_cran()

  tt <- eezsvshighseas()

  expect_named(tt, c("year", "eez_percent_catch", "high_seas_percent_catch"))
  expect_type(tt$eez_percent_catch, "double")
  expect_type(tt$high_seas_percent_catch, "double")
})

Try the seaaroundus package in your browser

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

seaaroundus documentation built on May 2, 2019, 8:20 a.m.