tests/testthat/test-js.R

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))
syntheso/magmaR documentation built on June 1, 2025, 7:59 p.m.