tests/testthat/test-tide_level.R

test_that("", {
  expect_error(
    read_tide_level(.year = 1997, .month = 3, .stn = "TK")
  )
  expect_equal(
    request_tide_level_url(.year = 1997, .month = 4, .stn = "TK"),
    "https://www.data.jma.go.jp/gmd/kaiyou/data/db/tide/genbo/1997/199704/hry199704TK.txt"
  )
})

Try the jmastats package in your browser

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

jmastats documentation built on April 12, 2025, 1:38 a.m.