R/testing-helpers.R

In quickPlot: A System of Plotting Optimized for Speed and Modularity

globalVariables(c("i.value", "sys_name", "test_id", "value"))

r_version <- function() {
  as.character(getRversion())
}

sysname <- function() {
  Sys.info()["sysname"][[1]]
}

aPoly <- function(type = "SpatVector") {
  a <- cbind(
    object = 1,
    structure(c(
      -78.577, -78.456, -78.336, -78.294, -78.309, -78.758,
      -78.957, -79.009, -79.011, -78.054, -77.248, -76.89, -76.751,
      -77.393, -78.105, -78.787, -79.381, -79.807, -80.453, -80.584,
      -80.88, -80.932, -81.12, -81.139, -81.14, -81.179, -81.195, -81.018,
      -80.978, -80.736, -80.231, -78.989, -78.577, 60.547, 60.132,
      59.839, 59.78, 59.726, 59.187, 58.938, 58.745, 58.468, 58.059,
      57.618, 57.126, 56.773, 56.806, 56.856, 56.944, 57.091, 57.153,
      57.139, 57.583, 58.551, 58.686, 59.244, 59.288, 59.532, 60.136,
      60.187, 60.652, 60.715, 60.842, 60.966, 61.132, 60.547), .Dim = c(33L, 2L))
  )
  b <- cbind(
    object = 2,
    structure(c(
      -76.751, -76.772, -76.886, -77.009, -77.623, -77.901,
      -78.189, -78.597, -79.013, -79.565, -80.039, -80.261, -80.296,
      -80.364, -80.447, -80.453, -79.807, -79.158, -78.787, -77.786,
      -76.751, 56.773, 56.725, 56.376, 56.214, 55.694, 55.481, 55.349,
      55.206, 55.088, 54.992, 54.852, 55.361, 55.41, 55.589, 56.3,
      57.139, 57.153, 57.045, 56.944, 56.825, 56.773), .Dim = c(21L, 2L))
  )

  out <- terra::vect(rbind(a, b), "polygon")

  if (!identical(type, "SpatVector")) {
    out <- sf::st_as_sf(out)
  }
  out
}