inst/tinytest/test_tanaka.R

In tanaka: Design Shaded Contour Lines (or Tanaka) Maps

#init
com <- sf::st_read(system.file("gpkg/com.gpkg", package = "tanaka"),
                   quiet = TRUE)
ras <- terra::rast(system.file("tif/elev.tif", package = "tanaka"))

expect_silent(tanaka_contour(x = ras))
expect_silent(tanaka_contour(x = ras, nclass = 20))
expect_silent(tanaka_contour(x = ras, breaks = seq(80, 420, 30)))
expect_silent(tanaka_contour(x = ras, mask = com))
expect_silent(tanaka(x = ras))
expect_silent(tanaka(x = ras, shift = 20))
expect_silent(tanaka(x = ras, col = rev(
  c(
    "#000004FF",
    "#231151FF",
    "#5F187FFF",
    "#982D80FF",
    "#D3436EFF",
    "#F8765CFF",
    "#FEBA80FF",
    "#FCFDBFFF"
  )
)))
expect_silent(tanaka(x = tanaka_contour(
  x = ras,
  breaks = seq(80, 420, 50),
  mask = com
)))



fufun <- function(ras) {
  for (i in list(
    "bottomleft",
    "topleft",
    "topright",
    "bottomright",
    "left",
    "right",
    "top",
    "bottom",
    "center",
    "bottomleftextra",
    "n",
    c(589477, 6421370)
  )) {
    tanaka(x = ras,
           legend.pos = i,
           breaks = seq(80, 420, 125))
  }
}
expect_silent(fufun(ras))