tests/testthat/test_parseImage.R

In Spaniel: Spatial Transcriptomics Analysis

# Tests for parseImage function
# ------------------------------------------------------------------------------

context("Testing parseImage")
# These tests were created to ensure that the parseImage functions works
# correctly and creates a grob

# Test parseImage 
# ------------------------------------------------------------------------------

# load image
imgPath <-  file.path(system.file(package = "Spaniel"), 
                      "HE_Rep1_resized.jpg")
testGrob <- parseImage(imgPath)

test_that("parseImage loads an image and creates a grob", {
    expect_is(testGrob, c("rastergrob","grob","gDesc"))
})