test_that("get_scan_params", {
skip_on_cran()
skip_on_ci()
testthat::expect_is(get_scan_params('NITRC_IR_E10453'),"data.frame")
testthat::expect_is(get_scan_params('NITRC_IR_E10453', scan_type = "T1"),"data.frame")
testthat::expect_message(get_scan_params('NITRC_IR_E10453','T3'),"Invalid scan type")
testthat::expect_null(get_scan_params('NITRC_IR_E11072', jsessionID = ""))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.