tests/testthat/test-js.R

In sebsilas/musicassessr: musicassessr; develop music psychology tests and assess musicological/psychological data

test_that("include_musicassessr_js works", {

  t <- include_musicassessr_js(record_audio = FALSE)

  expect_is(t, "shiny.tag.list")

})


test_that("musicassessr_js works", {

  t <- musicassessr_js(app_name = "", record_audio = FALSE)

  expect_is(t, "character")

})



class(musicassessr_js(app_name = "", record_audio = FALSE))