tests/testthat/test_gt_scale.R

In geometr: Generate and Modify Interoperable Geometric Shapes

library(checkmate)
library(testthat)
context("gt_scale")


test_that("output is valid geometry", {
  coords <- data.frame(x = c(40, 70, 70, 50),
                       y = c(40, 40, 60, 70),
                       fid = 1)
  window <- data.frame(x = c(0, 80),
                       y = c(0, 80))
  rectGeom <- gs_polygon(anchor = coords, window = window)
  spRectGeom <- setCRS(rectGeom, crs = "+proj=laea +lat_0=52 +lon_0=10 +x_0=4321000 +y_0=3210000 +ellps=GRS80 +units=m +no_defs")
  rectGeomRel <- gt_scale(obj = rectGeom, range = tibble(x = c(0, 1), y = c(0, 1)))
  spRectGeomRel <- gt_scale(obj = spRectGeom, range = tibble(x = c(0, 1), y = c(0, 1)))
  rectGeomAbs <- gt_scale(obj = rectGeomRel, range = window)
  rectRescaled <- gt_scale(obj = rectGeom, range = tibble(x = c(0, 100), y = c(10, 90)))

  expect_class(rectGeomRel, classes = "geom")
  expect_class(rectGeomAbs, classes = "geom")
  expect_class(rectGeom, classes = "geom")
  expect_class(rectRescaled, classes = "geom")
  expect_class(spRectGeomRel, classes = "geom")
})

test_that("output has correctly scaled values (only 'relative')", {
  coords <- data.frame(x = c(40, 70, 70, 50),
                       y = c(40, 40, 60, 70),
                       fid = 1)
  extent <- data.frame(x = c(0, 80),
                       y = c(0, 80))
  rectGeom <- gs_polygon(anchor = coords, window = extent)
  rectGeomRel <- gt_scale(obj = rectGeom, range = tibble(x = c(0, 1), y = c(0, 1)))

  expect_true(all(rectGeomRel@point[c("x", "y")] <= 1))
  # expect_true(rectGeomRel@scale == "relative")
})

test_that("Error if arguments have wrong value", {
  coords <- data.frame(x = c(40, 70, 70, 50),
                       y = c(40, 40, 60, 70),
                       fid = 1)
  window <- data.frame(x = c(0, 80),
                       y = c(0, 80))
  window2 <- data.frame(x = c(1, 1), y = c(1, 1))
  window3 <- data.frame(x = c(1, 2), y = c(1, 1))
  rectGeom <- gs_polygon(anchor = coords, window = window)
  rectGeom2 <- gs_polygon(anchor = coords, window = window2)
  rectGeom3 <- gs_polygon(anchor = coords, window = window3)

  expect_error(gt_scale(obj = rectGeom, range = "bla"))
  expect_error(gt_scale(obj = rectGeom, range = c(0, 100)))
  expect_error(gt_scale(obj = rectGeom2))
  expect_error(gt_scale(obj = rectGeom3))
  expect_error(gt_scale(obj = "bla"))
})