+translation,PointFrame tests

Author: HelenaLC

R/trans.R

@@ -133,6 +133,8 @@ setMethod("rotate", c("PointFrame", "numeric"), \(x, t, ...) {
 #' @importFrom dplyr mutate select
 #' @export
 setMethod("translation", c("PointFrame", "numeric"), \(x, t, ...) {
+    stopifnot(is.numeric(t), length(t) == 2, all(is.finite(t)))
+    if (all(t == 0)) return(x)
     y <- NULL # R CMD check
     x@data <- x@data |>
         mutate(x=x+t[1]) |>

tests/testthat/test-trans.R

@@ -51,3 +51,26 @@ test_that("translation,labelArray", {
     expect_equal(dx[1,], dy[1,]/2)
     expect_identical(dx[2,], dy[2,])
 })
+
+test_that("translation,PointFrame", {
+    x <- point(sd, 1)
+    y <- translation(x, c(0,0))
+    expect_identical(x, y)
+    # invalid
+    expect_error(translation(x, numeric(1)))
+    expect_error(translation(x, numeric(3)))
+    expect_error(translation(x, logical(2)))
+    expect_error(translation(x, c(Inf, Inf)))
+    expect_error(translation(x, character(2)))
+    expect_error(translation(x, NA*numeric(2)))
+    # valid
+    i <- setdiff(names(x), c("x", "y"))
+    f <- \() sample(33, 1)*sample(c(-1, 1), 1)
+    replicate(10, \() {
+        n <- f(); m <- f()
+        y <- translation(x, c(n,m))
+        expect_identical(x$x, y$x+n)
+        expect_identical(x$y, y$y+m)
+        expect_identical(x[,i], y[i])
+    })
+})