tests/testthat/test-mirroraffine.R

In alexanderbates/deformetricar: R wrapper for elements of the Deformetrica registration tool

context("mirroraffine")
test_that("we can perform a mirroring and affine transformation",{
  app=try(find_app("ShootAndFlow3"))
  if(inherits(app, 'try-error')) skip("Can't find ShootAndFlow3!")

  n3=nat::Cell07PNs[1:3]
  file=system.file("extdata/fullmirror.rds", package = 'deformetricar')
  expect_is(t.n3<-apply.mirror.affine(n3, pathtomatrix = file), 'neuronlist')
})