# Copyright © 2022 University of Kansas. All rights reserved.
.testHTML_rawDataModuleUI <- function(...) {
shiny:::withPrivateSeed(set.seed(100))
rawDataModuleUI(...)
}
testthat::test_that("shiny rawDataModuleUI creates expected HTML", {
#skip_if(!py_module_available("pygt3x"))
expect_snapshot(.testHTML_rawDataModuleUI("rawDataModule"))
})
.testHTML_countsModuleUI <- function(...) {
shiny:::withPrivateSeed(set.seed(100))
countsModuleUI(...)
}
testthat::test_that("shiny countsModuleUI creates expected HTML", {
#skip_if(!py_module_available("pygt3x"))
expect_snapshot(.testHTML_countsModuleUI("countsModule"))
})
.testHTML_compareCountsModuleUI <- function(...) {
shiny:::withPrivateSeed(set.seed(100))
compareCountsModuleUI(...)
}
testthat::test_that("shiny compareCountsModuleUI creates expected HTML", {
#skip_if(!py_module_available("pygt3x"))
expect_snapshot(.testHTML_compareCountsModuleUI("compareCountsModule"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.