tests/testthat/test-plot-yield.R

In poissonconsulting/ypr: Yield Per Recruit

test_that("ypr_plot_yield", {
  gp <- ypr_plot_yield(ypr_population(Rk = 10), y = "YPUE", pi = seq(0, 1, length.out = 10))
  expect_warning(expect_snapshot_plot(gp, "ypr_plot_yield"))
})

test_that("ypr_plot_yield2", {
  gp <- ypr_plot_yield(ypr_populations(Rk = c(2.5, 4.6), Llo = c(0, 60)),
                       pi = seq(0, 1, length.out = 2), plot_values = FALSE
  ) +
    ggplot2::facet_wrap(~Llo) +
    ggplot2::aes_string(group = "Rk", color = "Rk") +
    ggplot2::scale_color_manual(values = c("black", "blue"))

  expect_snapshot_plot(gp, "ypr_plot_yield2")
})

test_that("ypr_plot_yield ecotypes1", {
  gp <- ypr_plot_yield(ypr_ecotypes(Rk = 10),
                       pi = seq(0, 1, length.out = 2), plot_values = FALSE)

  expect_snapshot_plot(gp, "ypr_plot_ecotypes")
})

test_that("ypr_plot_yield ecotypes2", {
  gp <- ypr_plot_yield(ypr_ecotypes(Ls = c(30, 10)),
                       pi = seq(0, 1, length.out = 2), plot_values = FALSE)

  expect_snapshot_plot(gp, "ecotypes2")
})