inst/tinytest/test_chart.R

In isopleuros: Ternary Plots

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")

  # CAS ========================================================================
  ## CAS
  chart_cas_mass <- function() {
    ternary_plot(NULL, axes = FALSE, ann = FALSE, frame.plot = TRUE)
    triangle_phase_cas(mol = FALSE, pch = 16)
  }
  expect_snapshot_plot(chart_cas_mass, "chart_cas_mass")

  chart_cas_molarity <- function() {
    ternary_plot(NULL, axes = FALSE, ann = FALSE, frame.plot = TRUE)
    triangle_phase_cas(mol = TRUE, pch = 16)
  }
  expect_snapshot_plot(chart_cas_molarity, "chart_cas_molarity")

  ## Ceramic
  chart_ceramic_mass <- function() {
    ternary_plot(NULL, axes = FALSE, ann = FALSE, frame.plot = TRUE)
    triangle_phase_ceramic(mol = FALSE, pch = 16)
  }
  expect_snapshot_plot(chart_ceramic_mass, "chart_ceramic_mass")

  chart_ceramic_molarity <- function() {
    ternary_plot(NULL, axes = FALSE, ann = FALSE, frame.plot = TRUE)
    triangle_phase_ceramic(symbol = TRUE, mol = TRUE, pch = 16)
  }
  expect_snapshot_plot(chart_ceramic_molarity, "chart_ceramic_molarity")

  # Soil texture ===============================================================
  ## HYPRES soil texture
  chart_soil_hypres <- function() {
    ternary_plot(NULL, xlab = "sand", ylab = "silt", zlab = "clay")
    triangle_soil_hypres()
  }
  expect_snapshot_plot(chart_soil_hypres, "chart_soil_hypres")

  ## USDA (1951) soil texture
  chart_soil_usda <- function() {
    ternary_plot(NULL, xlab = "sand", ylab = "silt", zlab = "clay")
    triangle_soil_usda(symbol = TRUE)
  }
  expect_snapshot_plot(chart_soil_usda, "chart_soil_usda")

  ## Folk (1954) soil texture
  chart_soil_folk <- function() {
    ternary_plot(NULL, xlab = "sand", ylab = "silt", zlab = "clay")
    triangle_soil_folk(symbol = TRUE)
  }
  expect_snapshot_plot(chart_soil_folk, "chart_soil_folk")

  ## Shepard (1954) soil texture
  chart_soil_shepard <- function() {
    ternary_plot(NULL, xlab = "sand", ylab = "silt", zlab = "clay")
    triangle_soil_shepard()
  }
  expect_snapshot_plot(chart_soil_shepard, "chart_soil_shepard")
}