inst/tinytest/test_plot.R

In aion: Archaeological Time Series

if (at_home()) {
  using("tinysnapshot")
  options(tinysnapshot_device = "svglite")
  options(tinysnapshot_height = 7) # inches
  options(tinysnapshot_width = 7)
  options(tinysnapshot_tol = 200) # pixels
  options(tinysnapshot_os = "Linux")

  # Plot multiple ==============================================================
  X <- series(
    object = matrix(sin(1:300), nrow = 50, ncol = 6),
    time = seq(2000, by = 2, length.out = 50),
    calendar = calendar("BP")
  )

  plot_facet_rd <- function() plot(X, calendar = NULL)
  expect_snapshot_plot(plot_facet_rd, "plot_facet_rd")

  plot_facet_CE <- function() plot(X)
  expect_snapshot_plot(plot_facet_CE, "plot_facet_CE")

  plot_facet_BP <- function() plot(X, calendar = BP(), flip = TRUE)
  expect_snapshot_plot(plot_facet_BP, "plot_facet_BP")

  plot_facet_b2k <- function() plot(X, calendar = b2k(), ncol = 1)
  expect_snapshot_plot(plot_facet_b2k, "plot_facet_b2k")

  # Plot single ================================================================
  plot_single <- function() plot(X, facet = "single", calendar = BP())
  expect_snapshot_plot(plot_single, "plot_single")

  # Graphical parameters  ======================================================
  # X <- series(
  #   object = array(sin(1:900), dim = c(50, 6, 3)),
  #   time = seq(2000, by = 2, length.out = 50),
  #   calendar = calendar("BP")
  # )
  #
  # plot(X, lwd = c(1, 2, 3), col = c("#004488", "#DDAA33", "#BB5566"))
  # plot(X, type = "b", pch = 16, col = c("#004488", "#DDAA33", "#BB5566"))
  # plot(X, type = "p", pch = c(16, 17, 18), cex = c(1, 2, 3))

  # Image ======================================================================
  plot_image <- function() image(X, calendar = BP())
  expect_snapshot_plot(plot_image, "plot_image")

  # Axis and grid ==============================================================
  ## Vector of years expressed in ka BP
  X <- series(
    object = matrix(sin(1:3), nrow = 3, ncol = 1),
    time = c(30, 35, 40),
    scale = 1000,
    calendar = calendar("BP")
  )

  axis_default <- function() {
    plot(X, calendar = BP(), axes = FALSE)
    year_axis(side = 1)
    axis(side = 2)
    graphics::grid()
  }
  expect_snapshot_plot(axis_default, "axis_default")

  axis_ka <- function() {
    plot(X, calendar = BP(), axes = FALSE)
    year_axis(side = 1)
    year_axis(side = 3, format = "ka", calendar = CE())
    graphics::grid()
  }
  expect_snapshot_plot(axis_ka, "axis_ka")

  axis_Ma <- function() {
    plot(X, calendar = BP(), axes = FALSE)
    year_axis(side = 1)
    year_axis(side = 3, format = "Ma", calendar = CE())
    graphics::grid()
  }
  expect_snapshot_plot(axis_Ma, "axis_Ma")
}