tests/testthat/test-plines.R

In jpfrench81/autoimage: Multiple Heat Maps for Projected Coordinates

context("plines tests")

test <- FALSE

if (test) {
  setwd("~")
  pdf("test-plines.pdf")
  data(narccap)
  data(worldMapEnv, package = "maps")
  worldpoly <- maps::map("world", plot = FALSE)
  pimage(lon, lat, z = tasmax[, , 1], lines = worldpoly, main = "world poly", 
    proj = "mercator")
  pimage(lon, lat, z = tasmax[, , 1], proj = "mercator", main = "world poly")
  plines(worldpoly, proj = "mercator")
  dev.off()
}