tests/testthat/test-player.R

context("Video functions")
test_that("player functions work", {
    expect_true(file.exists(system.file("extdata/js/vid.js", package = "ovideo")))
    expect_s3_class(ov_video_js(), "shiny.tag")
    expect_s3_class(ov_video_player(id = "blah", type = "youtube"), "shiny.tag.list")
})
openvolley/ovideo documentation built on March 19, 2024, 9:52 p.m.