context("save_images")
test_that("save_images works", {
save_images(dplyr::filter(ljosa2013,
Metadata_Plate == "Week1_22123" &
Metadata_Well == "B04"),
per_row = 2,
quality = 100)
a <-
EBImage::readImage("Week1_22123_B04_Actin.jpg")
b <-
EBImage::readImage(
system.file("extdata", "Week1_22123_B04_Actin.jpg",
package = "cytoplot"))
expect_equal(a, b)
file.remove("Week1_22123_B04_Actin.jpg")
file.remove("Week1_22123_B04_DAPI.jpg")
file.remove("Week1_22123_B04_Tubulin.jpg")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.