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")
})
SeaAroundUs/rseaaroundus documentation built on Aug. 22, 2018, 9:14 a.m.