tests/testthat/test-plots.R

In resourcecode: Access to the 'RESOURCECODE' Hindcast Database

test_that("we can plot the 2D spectrum", {
  spec <- resourcecodedata::rscd_2d_spectra
  plot_from_index <- plot_2d_specta(spec, 1)
  plot_not_normalized <- plot_2d_specta(spec, 1, normalize = FALSE)
  plot_from_date <- plot_2d_specta(spec, "1994-01-27 13:00:00")
  expect_no_warning(print(plot_from_index))
  expect_no_warning(print(plot_not_normalized))
  expect_no_warning(print(plot_from_date))
  # vdiffr::expect_doppelganger(
  #   "Specifying index",
  #   plot_from_index,
  #   variant = Sys.info()[["sysname"]]
  # )
  # vdiffr::expect_doppelganger(
  #   "Un-normalized 2D spectra",
  #   plot_not_normalized,
  #   variant = Sys.info()[["sysname"]]
  # )
  # vdiffr::expect_doppelganger(
  #   "Plot by date",
  #   plot_from_date,
  #   variant = Sys.info()[["sysname"]]
  # )
})

test_that("Plotting maps works", {
  expect_no_error(rscd_mapplot(
    resourcecodedata::rscd_field$depth,
    name = "Depth (m)"
  ))
  expect_no_warning(rscd_mapplot(
    resourcecodedata::rscd_field$depth,
    name = "Depth (m)"
  ))
  # vdiffr::expect_doppelganger(
  #   "Mapping water depth",
  #   rscd_mapplot(resourcecodedata::rscd_field$depth, name = "Depth (m)"),
  #   variant = Sys.info()[["sysname"]]
  # )
})