tests/testthat/setup-videor.R

In ShotaOchi/videor: Tool Box for Video Analysis

library(videor)
library(checkmate)

class_imager <- "cimg"
class_pixset <- "pixset"

bees <- system.file("extdata", "bees.mp4", package = "videor")
avi <- system.file("extdata", "bees.avi", package = "videor")
webm <- system.file("extdata", "bees.webm", package = "videor")
wmv <- system.file("extdata", "bees.wmv", package = "videor")
counts <- system.file("extdata", "counts.gif", package = "videor")
path_wrong <- "wrong path"
path_wrong2 <- c(bees, bees)

expect_equal_cimg <- function(im1, im2)
{
  expect(all(im1 == im2))
}