tests/testthat/test-player.R

context("Video functions")
test_that("player functions work", {
    expect_true(file.exists(system.file("extdata/js/vid.js", package = "dvideo")))
    expect_s3_class(dv_video_js(), "shiny.tag.list")
    expect_s3_class(dv_video_player(id = "blah", type = "youtube"), "shiny.tag")
})
scienceuntangled/dvideo documentation built on March 13, 2020, 6:50 p.m.