tests/testthat/test-interpolation.R
In MangoTheCat/visualTest: Perform Fuzzy Image Matching
context("Image interpolation")
test_that("bilinearInterpolation", {
rlogo <- system.file(package = "png", "img", "Rlogo.png")
image <- png::readPNG(rlogo)
small_image <- bilinearInterpolation(image, c(30, 40))
expect_equal(dim(small_image), c(30, 40, 4))
})
MangoTheCat/visualTest documentation built on May 7, 2019, 2:24 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
context("Image interpolation")
test_that("bilinearInterpolation", {
rlogo <- system.file(package = "png", "img", "Rlogo.png")
image <- png::readPNG(rlogo)
small_image <- bilinearInterpolation(image, c(30, 40))
expect_equal(dim(small_image), c(30, 40, 4))
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.