tests/testthat/test-dct-fingerprint.R
In MangoTheCat/visualTest: Perform Fuzzy Image Matching
context("DCT fingerprinting")
test_that("Fingerprint of a base R plot is similar across platforms", {
tmp <- tempfile(fileext = ".png")
png(tmp)
pairs(iris[1:4], main = "Anderson's Iris Data -- 3 species",
pch = 21, bg = c("red", "green3", "blue")[unclass(iris$Species)])
dev.off()
expect_true(isSimilar(tmp, "BA68E7B3948C8936", threshold = 8))
})
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("DCT fingerprinting")
test_that("Fingerprint of a base R plot is similar across platforms", {
tmp <- tempfile(fileext = ".png")
png(tmp)
pairs(iris[1:4], main = "Anderson's Iris Data -- 3 species",
pch = 21, bg = c("red", "green3", "blue")[unclass(iris$Species)])
dev.off()
expect_true(isSimilar(tmp, "BA68E7B3948C8936", threshold = 8))
})
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.